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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

THE NETWORK INTERCONNECT EXERCISER (NIE) PROGRAM IS MEANT TO PROVIDE 
FIELD SERVICE WITH A TOOL FOR DETERMINING THE CONNECTIVITY OF NODES 
ON THE NETWORK INTERCONNECT (NI). 

THE NIE PROGRAM WILL DETERMINE THE ABILITY OF NODES ON THE NI TO 
COMMUNICATE WITH EACH OTHER AND PROVIDE NODE INSTALLATION VERIFICATION 
AND PROBLEM ISOLATION. THE NIE USES THE LOW LEVEL MAINTENANCE FEATURES 
OF THE DEONA TO PROVIDE TESTING WITHOUT INTERRUPTING NORMAL OPERATION 
OF THE NI. THE VAX VERSION OF THE NIE CAN ALSO BE RUN CONCURRENTLY ON 
ANOTrCR NODE. WITH EACH VERSION RUNNING INDEPENDENTLY OF EACH OTHER. 

THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP., ACT. APT. SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE Rt^TIME SERVICES. REFER 
TO THE XXDP. USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

IN ORDER TO RUN THE CVNIA NIE PROGRAM. THE FOLLOWING MINIMUM HARDWARE 

IS REQUIRED: 

A POP 11 CPU WITH A Q-BUS (11/25. H/25*. 11/05) 

MINIMtJM OF 24K WORDS OF MEMORY 

A WORKING. LINE OR REAL TIME CLOCK 

A CONbC E TERMINAL 

ANY XXDP< SUPPORTED LOAD MEDIA 

OEQNA Q6US IC ETHERNET ADAPTER 
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1.5 RELATED DOCUMENTS ^NO STAK©ARDS 
OEONA FUNCTIONAL Mfi PROGRAMMING SPEC 

XXOP» USER'S MANUAL (CMQUS7.SEQ UMERE ? IS THE REV. LEVZL OF 
THE MANUAL "C" IS THE CURRENT REV.) 

1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

THE GOAL OF THE NIE IS TO TEST THE COMMUNICATIONS LINK AND THEREFORE 

ASSUMES THAT THE CPU'S. CLOCKS. AND DEQNA'S OR DEQNA' S AT EACH END OF THE LINK 

HAVE ALREADY BEEN TESTED. 

IF NO LINE OR REAL TIME CLOCK IS FOUND. THE PROGRAM WILL NOT RUN. 

IT IS NOT THE INTENTION OF THE NIE TO TEST THE DEVICE (DEQNA). 
BUT TO TEST THE COMMUNICATIONS LINK TO WHICH IT IS CONNECTED. 



1.5 ASSUMPTIONS 

IT IS ASSUMED THAT THE COMMUNICATIONS DEVICE (DEQNA) HAS BEEN TESTED 
USING THE PREREQUISITE DIAGNOSTICS. THE OPERATOR SHOULD HAVE READ THE 
USER DOCUMENTATION PORTION OF THE LISTING TO FAMILIARIZE HIMSELF WITH 
THE COMMANDS AND CAPABILITIES AVAILABLE UNDER THE DIAGNOSTIC SUPERVISOR 
AND NIE. 

2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION. REFER TO THE XXOP* USER'S MANUAL (CHQUS). 

2.1 COrtlANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERt 
BRIEF DESCRIPTION OF THEM. THE XXDP» USER'S MANUAL HAS MORE DETAILS. 



COMMAND EFFECT 



START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC UITH0<JT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER to 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXOP* MONITOR (XXDP» OPERATION ONLY') 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SFE SECTION ^.5) 

ZFLAGS CLEAR ALL F_AGS (SEE SECTIO^. 2.S) 



A COMMAND CAN BE RECOGNIZED Br THE FIRST THREE CHARACTERS. SO 
tOi^ hay. FOR EXAMPLE. T f PF "STA- INSTEAD OF 'START'. 
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2.2 SWITCHES 

THERE ARE SEVERAL SUITCHES UHICh ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SUITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SUITCHES ARE TABULATED BELOU WITH A BRIEF DESCRIPTION OF EACH, 
IN THE DESCRI (IONS 8EL0U. A DECIMAL NUMBER IS DESIGNATED BY '00000". 

SUITCH EFFECT 



/TESTS sLiST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS. FOR EXAMPLE /TESTS: 1:5: 7-10. 
THIS LIST WILL CAUSE TESTS 1,5,7.8,9,10 TO 
BE "^UN. ALL OTHER TESTS UILL NOT BE RUN. 

/PASSrOOOOD EXECUTE OOOOD PASSES (DOOOO - 1 TO 64000) 

/FLAGS :FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 

/EOP:0DDDD REPORT END OF PASS MESSAGE AFTER EVERY 

OOOOD PASSES ONLY. (DOOOO • 1 TO 64000) 

/UNITS:LIST TEST/AOD/OROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. L'ST EXAMPLE - /UNITS:0:5: 10-12 
USE UNITS 0.5. ig. II. 12 (UNIT NUMBERS - 0-63) 

EXAMPLE OF SUITCH USAGE: 

START/TESTS : 1 -5/PASS : lOOO/EOP : 100 

THE EFFECT OF THIS COMMAND UILL BE: 1) TESTS 1 THROUGH 5 UiLL BE 
EXECUTED. 2) ALL UNITS UILL TESTED 1000 TIMES AND 3 ) THE END OF 
PASS MESSAGES UILL !i£ PRINTED AFTER EACH 100 PASSES ONLY. A 
SUITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. yOU MAY. 
FOR EXAMPLE. TYPE '■/TES:l-5" INSTEAD OF "/TESTS: 1 -5" . 

BELOU IS A TABLE THAT SPECIFIES UHlCH SUITCHES CAN BE USED BY EACH 
COMMAND. 

TESTS P'*SS FLAGS EOP UNITS 



START XX XX X 

RESTART XX XX X 

CONTINUE X XX 

PROCEED X 

DROP X 

ADD X 

PRINT 

DISPLAY X 

FLAGS 

ZFLAGS 

EXIT 

2.3 FLAGS 

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SUITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USIHG THF 
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rcAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS. 
NO COMMANDS AFFECT THE STATE OF THE FLAGS j THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 



FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 

RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

lER* INHIBIT ALL ERROR REPORTS 

IBE* INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE. NUMBER. PC. TEST AND UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE "BELL" ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 

STATISTICAL REPORTING) 
IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTOOROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 

HAVE EVALUATION SUPPORT) 



*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 

SEE THE XXDP» USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE. 
TO CAUSE THE PROGRAM TO LOOP ON ERROR. INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR. YOU MAY USE THE FOLLOWING STRING: 

/FLAGS:LOE:IER:BOE 



2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED. THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?' 
rOU MUST ANSWER "Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN "PRELOADED" USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP. USERS MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A "Y". THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 

» UNITS (0) ? 1*CR> 
UNIT 0 

DEVICE CSR ADDRESS : (0) 174440 ?<CR> 
INTERRUPT VECTOR ADDRESS : (0) SOO ?<CR> 
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INTERRUPT PRIORITY : (0) 5 ?<CR> 

WHEN ^00 COMPLETE THE ABOVE SEQUENCE tOU WILL BE AT THE NIE> 
COMMAND LEVEL. 

NIE> (A) ? 

?.5 NETUORK INTERRCONNECT EXERCISER COMMANDS 

THE "NIE>" COMMAND LEVEL FOLLOWS THE ATTACHING OF THE DEVICE AND 
ISSUING THE START TO THE SUPERVISOR. THESE COMMANDS CAN BE TYPED 
WHEN THE •NIE>" PROMPT IS PRINTED. 

YOU ONLY HAVE TO TYPE ENOUGH CHAR; TERS TO UNIQUELY SPECIFY A 
COMMAND. THE COMMAND LINE IS INTERPf TED FROM LEFT TO RIGHT. 

UNDERLINED ITEMS IN THE EXAMPLES REPRESENT THE USER'S RESPONSE TO THE 
PROMPT TO EXECUTE THAT PARTICULAR COMMAND. 

HELP OR ? PRINTS OUT A BRIEF DESCRIPTION OK NIE COMMANDS. 

EXAMPLE: 

NIE> (A) ? H 

OR 

NIE> (A) ? ? 

SHOW NODES PRINTS OUT THE CONTENTS OF THE NODE TABLE. 

EXAMPLE : 

NIE> (A) ? SH N 

SHOW MESSAGE PRINTS OUT THE CURRENT MESSAGE PARAMETERS FOR SIZE. 
TYPE AND COPIES. 

EXAMPLE: 

NIE> (A) ? SH M 

SHOW COUNTERS PRINTS OUT THE CONTENTS OF THE HOST NODE DEUNA INTERNAL 
COUNTERS. 



NOTE: 

BIT S OF THE RECEIVE ERROR BIT MASK IS THE "RUNT PACKET" BIT. THIS IS NOT PART 
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or THE COUNTERS IHFO. THIS BIT INDICATES THAT A RUNT PACKET WAS POUND IN IHE 
RECEIVE BUFFER. THE SOFTWARE WILL DISCARD THE RUNT PACKET. IT IS NOT 
CONSIDERED AN ERROR AND UILL NOT BE RECORDED AS ONE. THE HARDWARE DESIGN 
WILL ALLOW A RUNT PACKET CONDITION TO OCCUR AND REQUIRES THAT THE SOFTWARE 
HANDLE SUCH A CONDITION. SEE THE QNA DESIGN SPECIFICATIONS FOR FURTHER 
INFORMATION ON THE NATURE OF RUNT PACKETS. 



THE MEANING OF THE COUNTERS IS EXPLAINED IN THE OEUNA USER'S GUIDE 
NUMBER EK OEUNA UG. 

THE ERROR BIT MASKS FOR XMIT AND RECEIVE ARE IN BINARr FORMAT. NOT OCTAL OR 
DECIMAL (I.E. 11 • BITl AND BITO. NOT AN OCTAL OR DECIMAL ELEVEN. 



EXAMPLE: 

NIE> (A) ? SH C 



NODE AOR/TrPE THE NODE COMMAND ALLOWS THE OPERATOR TO ENTER NODES INTO 
THE NODE TABLE. NODES ARE SPFCIFIED USING THEIR 12 HEX 
DIGIT ETHERNET PHtSICAL ADDRESS AND CAN BE SPECIFIED AS 
EITHER TARGET OR ASSIST (A DEFAULT OF TARGET IS ASSUMED). 



NOTE 

IF THE NODE IS TO BE CHANGED FROM A TARGET TO AN ASSIST OR VICE VERSA. IT 
MUST BE CLEARED FROM THE TABLE FIRST! 

WHEN RUNNING THE LOOPPAIR TEST, BE VERY CAREFUL WHEN DELETING NODES. IT IS 
BETTER TO DELETE NODES IN PAIRS ( ONE TARGET NODE AND ONE ASSIST NODE). 



EXAMPLE OF TARGET NODE ENTRY: 
NIE> (A) ? N AA-00-04 FF-FF FO/T 

EXAMPLE OF ASSIST NODE ENTRY: 
NIE> (A) ? N AA 00-04 FF FF FQ/A 

EXAMPLE : 

NIE> (A) ? N AA 00 04 FF-FF FO 



EXAMPLE OF CHANGING A TARGET NODE TO AN ASSIST NODE: 
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NIE» (A) ? CL N/AA 00 FF FO (SEE CuEAR COMMAND) 



NIE> (A) ? N AA-00 04 FF FF FO/A 



MESSAGE/TYPE' /SIZE -N/COPIES-M THE MESSAGE COMMAND ALLOUS THE OPERATOR 
TO SELECT THE CURRENT MESSAGE PARAMETERS AS FOLLOWS. 
ANY OR ALL OF THE PARAMETER CAN BE CHANGED WITH THE COMMAND. 
THE DEFAULT PARAMETERS ARE TyPE-ALPHA.SIZE-512.C0PIES»1. 

TYPE ONE OF THE FOLLOWING MESSAGE TYPES: 

ALPHA !"♦»«'()* ♦.-./0125456789,:-?ABC0EFG ETC. 

ONES MESSAGE OF ALL ONES (llllllll ) 

ZEROS -- MESSAGE OF ALL ZEROS (0000000 ) 

lALT -- ALTERNATING I'S AND O'S (lOIOlOlO...) 

OALT -- ALTERNATING O'S AND I'S (OlOlOlOl . . . ) 

CCITT - "CCITT" PSEUDO-RANDOM TEST PATTERN 

OPERATOR SELECTED -- OPERATOR CHOSEN PATTERN OF LESS THAN 

72 CHARACTERS USING 0-9. A-Z AND SPACES. (NOT USED IN 

PATTERN TEST) 

SIZE THE SIZE OF THE MESSAGE BUFFER MAY BE BETWEEN 46 AND 512 

BYTES. 

COPIES THE NUMBER OF COPIES OF EACH MESSAGE SENT TO EACH NODE 

DURING A TEST MAY BE BETWEEN 1 AND 255. 



EXAMPLE OF CHANGING TYPE: 
NIE> (A) ? M/T«ZERO 



EXAMPLE OF CHANGING SIZE: 
NIE> (A) ? M/S-256 



EXAMPLE OF CHANGING BOTH TYPE AND SIZE: 
NIE> (A) ? M/S-512/T-ALPMA 



RUN TEST/PASS'NN CAUSES EXECUTION OF THE SPECIFIED TEST FOR NN NUMBER OF 
PASSES. A DEFAULT VALUE OF 1 IS ASSUMED IF /PASS-NN IS 
NOT INCLUDED IN THE COMMAND LINE. A VALUE OF NN- 1 WILL 
CAUSE THE TEST TO BE RUN INDEFINITELY, NODE ADDRESSES 
FOR THE TESTS ARE TAKEN FROM THE NODE TABLE AND SHOULD BE 
ENTERED PRIOR TO RUNNING THE TEST USING THE NODE COMMAND. 
IN THE CASE OF THE LOOPPAIR TEST. NODE PAIRS ARE REQUIRED 
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AND MUST BE SPECIFIED AS TARGET AND ASSIST NODES. THE 
CURRENTLY SELECTED VALUES FOR MESSAGE TYPE. SIZE AND 
COPIES ARE USED BY EACH TEST. 

THERE ARE FOUR TEST TO CHOSE FROM: 

DIRECT THE DIRECT TEST SENDS A LOOP DIRECT MESSAGE TO ALL OF THE 

NODES CONTAINED IN THE NODE TABLE AND WAITS FOR A RESPONSE. 
THE INTEGRITY OF THE RETURNED DATA IS CHECKED AND AN- ERRORS 
ARE REPORTED TO THE OPERATOR. 

LOOPPAIR THE LOOPPAIR TEST SENDS ASSISTED LOOPBACK MESSAGES TO THE 

NODE PAIRS CONTAINED IN THE NODE TABLE. THREE TYPE OF ASSISTED 
MESSAGES ARE SENT: 

1) RECEIVE ASSIST -- HOST -> TARGET > ASSIST -> HOST 

2) TRANSMIT ASSIST -- HOST -> ASSIST > TARGET > HOST 

3) FULL ASSIST HOST -> ASSIST -> TARGET -> ASSIST > HOST 

IN EACH CASE A RESPONSE IS WAITED FOR AND THE DATA IS CHECKED. 

IMPORTANT!! ---> THE LOOPAIR TEST EXPECTS THAT EACH 

TARGET NODE HAVE A CORRESPONDING ASSIST NODE. AND THAT THE 
ORDER OF THE NODES IN THE NODE TABLE BE THE FOLLOWING: 

FIRST NODE IN TABLE: TARGET 
2ND NODE IN TABLE: ASSIST 
3RD NODE IN TABLE: TARGET 
4TH NODE IN TABLE: ASSIST 

ETC. 

IF THERE ARE TWO ASSIST NODES IN A ROW. THE PROGRAM uiLL 
CHANGE THE FIRST NODE TO A TARGET NODE. AND A SOFT ERROR 
WILL BE INDICATED. 

BE VERY CAREFUL WHEN DELETING NODES. IT IS BEST TO DELETE 
NODES IN PAIRS ( ONE TARGET NODE AND ONE ASSIST NODE). 



PATTERN THE PATTERN TEST SENDS SIX DIFFERENT LOOP DIRECT MESSAGES 

TO EACH NODE CONTAINED IN THE NODE TABLE. EACH OF THE SIX 
PATTERN TYPES fALPHA, ONES. ZEROS. lALT. OALT. CCITT) 
IS USED FOR EACH NODE. RETURNED DATA IS CHECKED FOR ERRORS. 

ALL THE ALL NODE TEST PERFORMS THE MOST EXTENSIVE CHECK OF THE 

NETWORK AND IS COMPOSED OF TWO PARTS. FIRST A LOOP DIRECT 
MESSAGE IS SENT TO EACH NODE IN THE TABLE. IF THIS IS 
SUCCESSFUL, THE EXERCISER BUILDS AN ARRAY OF NODE PAIRS 
FROM THE TABLE AND SEM)S A FULL ASSISTED LOOPBACK MESSAGE 
TO EACH PAIR IN THE ARRAY. A SAMPLE ARRAY OF PAIRS FOR A 
TABLE WITH 7 NODES IS SHOWN BELOW. 



1-2 2-3 3 4 4 5 5-6 6 7 

13 «J4 35 46 57 

1 4 2-5 3-6 4 7 

15 2 6 3-7 
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16 2 7 

1 7 

RESP RUNS THE RESPONOER TEST. A SECTION OF CODE THAT PROVIDES LOOP -SERVER 

FUNCTIONS SUCH AS FORWARDING MESSAGES. ANSWERING CONSOLE ID REQUESTS, AND 
TRANSMITTING A SYSTEM ID EVERY 8 TO 9 MINUTES. 



IMPORTANT 



THIS SECTION MUST BE RCW IF THE DEQNA IS TO BE USED AS A LOOP 
ASSIST OR TARGET NODE ON THE ETHERNET. THE OTHER TESTS MILL 
SIMPLY IGNORE FORUAROING REQUESTS. AND WILL NOT XMIT CONSOLE 
IDS. 



THE ONLY WAY TO ESCAPE FROM A LARGE OR INFINITE NUMBER OF 
PASSES IS TO TYPE CONTROL C. BE CAREFUL!! IF YOU TYPE "START" 
TO OSR> AFTER THE CONTROL C YOU UILL DESTROY ALL SUMMARY 
STATISTICS AND COUNTERS. USE THE "RESTART" COMMAND TO OSR> TO 
GET BACK TO THE NIE> PROMPT AND PRESERVE THE COUNTERS. 



EXAMPLE OF RUNNING THE DIRECT TEST ONE PASS: 
NIE> (A) ? R D 



EXAMPLE OF RUNNING THE DIRECT TEST 5 PASSES: 
NIE> (A) ? R O/P-5 

EXAMPLE OF RUNNING THE DIRECT TEST INFINITE PASSES: 
NIE> (A) ? R D/P-0 

EXAMPLE OF RUNNING LOOP PAIR TEST: 
NIE> (A) ? R L 

EXAMPLE OF RUNNING RESPONOER TEST: 
NrE> (A) ? R R 
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IDENTIFi ADR A REQUEST ID MESSAGE IS SENT TO THE NODE SPECiriEO By ADR 
AND THE RESPONDED SYSTEM ID PARAMETERS ARE PRINTED, 



EXAMPLE: 

NIE> (A) ? ID AA 00 04 TF-FF FO 



BUILD THE BUILD COMMAND CAUSES THE EXERCISERS TO LISTEN FOR 

SYSTEM ID MESSAGES WHICH ARE BROADCAST BY ALL DEUNA NODES 
ONCE EVERY 10 MINUTES. ALL NODES IDENTIFYING THEMSELVES 
ARE ADDED TO THE NODE TABLE. THE BUILD COMMAND STOPS 
WHEN NO NEW NODES HAVE BEEN ADDED FOR 10 MINUTES OR WHEN 
40 MINUTES HAVE ELAPSED. THE AVERAGE TIME FOR THIS 
COMMAND SHOULD BE 15 25 MINUTES. 

IT IS POSSIBLE TO MISS A TRANSMISSION WITHIN THE TEN MINUTE 
PERIOD. IF NO NODES SHOW UP AFTER A BUILD. TRY WAITING 4 
OR 5 MINUTES AND DO THE BUILD AGAIN. 

A FEATURE OF THIS PROGRAM IS THE ABILITY TO *C OUT OF THE 
BUILD ROUTINE AT ANY TIME WITHOUT HAVING TO WAIT FOR THE 
BUILDING PROCESS TO COMPLETE. THIS IS NICE WHEN YOU WANT 
TO TEST A FEU NODES AND DON'T CARE ABOUT ALL" THE NODES ON 
THE NET. 

EXAMPLE: 

N1E> CA) ? BU 



CLEAR NODE/ADR THE CLEAR NODE COMMAND CLEARS THE SPECIFIED NODE FROM 
THE NODE TABLE. THE NODE CAN BE SPECIFIED BY EITHER 
ITS 12 DIGIT PHYSICAL ADDRESS OR ITS LOGICAL NAME 
(AS ASSIGNED BY NODE TABLE). 

CLEAR NODE/ALL THIS COMMAND CLEARS THE NODE TABLE. 

CLEAR MESSAGE THIS COMMAND SETS THE MESSAGE PARAMETERS BACK TO THE 
DEFAULT VALUES. 

CLEAR SUMhrtRY THIS COMMAND CLEARS THE SUMMARY TABLE, 



EXAMPLE OF CLEARING A NODE USING THE NI ADDRESS: 
NIE> CA) ? CL N/AA-00 04 FF-FF FO 



EXAMPLE OF CLEARING A NODE USING IT'S LOGICAL NAME: 
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NX£> (A) ? CL N/N3 



NOTE: 

TO FIND WHICH LOGICAL NAME IS ASSOCIATED WITH AN ADDRESS. EXECUTE 
THE "SHOW NODE" COMMAND. 

ALSO. A CLEARED NODE CAN BE RESTORED TO THE NODE TABLE BY EXECUTING 
THE "UNSAVE" COMMAND. 



EXAMPLE OF CLEARING ALL NODES: 
NIE> (A) ? CL N/ALL 



SUMMARY THE SUMMARY COMMAND PRINTS OUT THE SUMMARY TABLE. 

THE NIE MAINTAINS THE FOLLOWING INFORMATION FOR 
NODES WHO HAVE BEEN SENT MESSAGES: 

RECEIVE? NOT COMPLETE RECEIVES COMPLETE 
LENGTH ERRORS DATA COMPARE ERRORS 

BYTES COMPARED BYTES TRANSFERRED 



NOTE: 

BYTES COMPARED REPRESENTS DATA MINUS THE LOOP-SERVER PROTOCOL OVERHEAD. AND 
THUS WILL BE LESS THAN BYTES TRANSFERRED WHICH REPRESENTS DATA PLUS LOOP 
SERVER PROTOCOL OVERHEAD 



EXAMPLE: 

NIE> (A) ? SUMM 



SAVE THE SAVE COMMAW SAVES THE CONTENTS OF THE NODE TABLE. 

FOR THE VAX VERSION. THE TABLE IS SAVED IN A FILE CALLED 
NIE.T8L. THE PDP-11 VERSION CANNOT WRITE TO EXTERNAL 
MEDIA. SO THE CONTENTS ARE SAVED INTERNALLY . 

EXAMPLE: 



NIE> CA) ? SAV 



Nl 
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UNSAVE 



THE UNSAVE COMMAND RESTORES THE CONTENTS OF THE NODE TABLE. 
USED. THE POP 11 VERSION USES THE CONTENTS OF ITS 
INTERNALLr SAVED TABLE. 



EXAMPLE: 



NIE> (A) ? UNS 



EXIT 



RETURNS CONTROL TO THE DIAGNOSTIC SUPERVISOR 
(EITHER VOS OR DRS). 



NOTE: 



THE OSR> RESTART AND CONTINUE COMMAND CANNOT BE USED IF THE EXIT COMMAND HAS 
BEEN USED TO LEAVE NIE> 



EXAMPLE: 

NIE> (A) 7 EXIT 



NOTES: 1) ADR IS THE PHYSICAL ADDRESS OF A NODE ON THE NI . 

2) PASS COUNT IS A DECIMAL NUMBER BETWEEN 1 AND 65554. 
A DEFAULT VALUE OF 1 IS ASSUMED. SPECIFYING I 
CAUSES THE TEST TO BE RUN INDEFINITELY. 



2.5.1 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 

OR CONTINUE COMMAND. THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MOOES. YOU WILL BE PROMPTED By CHANGE SW (L) ? 

IF YOU WISH TO CHANGE ANY PARAMETERS. ANSWER B* TyPING 

"Y". THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPHC S ) . 



2.6 QUICK START-UP PROCEDURE (XXDPO 
TO START-UP THIS PROGRAM: 
I. BOOT XXDP* 
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2. GIVE THE DATE AND ANSUER THE LSI AND 50HZ (IF THERE 
IS A CLOCK) QUESTIONS 

5. TYPE "R NAME". WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 

4. TtPE "START" 

5. ANSUER THE "CHANGE HU' QUESTION UITH • r- 

6. ANSUER ALL THE HARDUARE QUESTIONS 

7. ANSUER THE "CHANGE SU" QUESTION UITH -N" 

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL. BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE "lER" FLAG IS SET (SECTION 2.S). 
THE GENERAL ERROR ME<;SAGE IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 
ERROR MESSAGE 

. WHERE i NAME • DIAGNOSTIC NAME 

TYPE • ERROR Type (SYS FATAL. OEV FATAL. HARD OR SOFT) 
NUMBER - ERROR NUMBER 

UNIT NUMBER - 0 - N (N IS LAST UNIT IN PTABLE) 
TST NUMBER • TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX - ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROk MESSAGES ARE MESSAGES THAT C JNTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "lER" OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSA(;ES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "lER". "IBR" OR "IXR" FLAGS ARE SET (SECTION 2.5). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 

ERROR MESSAGE: MEANING 



?ILL CMO BAD SYNTAX A COMMAND WITH AN ILLEGAL CHAR WAS 

TfPEO RETYPE THE COMMAND. THE VALID 
COMMANDS AND THEIR SYNTAX ARE SHOWN 
IN SECTION 2.5 
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SCO IS 



?I>«COMPLtTf 



A Rt QUIRED PART OF A COMMAND WAS LET T 

OUT. 



?NL»«tR TOO BIG 



TMt VALUE Of A NUMERIC STRING IN THE 
COMMAND LINE UAS LARGER THAN 65535 
OR 177777 OCTAL. C >16 BITS). 



?BAD RADIX 



A "8" OR "9" UAS TYPED UHEN AN OCTAL 
STRING UAS EXPECTED. PROBABLY OCCURRED 
UHEN TYPING A "DUMP" COMMAND UHERE 
OCTAL ADDRESSES ARE EXPECTED. 



EXAMPLE or A LOST PACKET ERROR DURING LOOPPAIR TESTING 



CVNIA HRD ERR 00028 ON UNIT 00 TST 001 SUB 000 PC: 064442 

TIMEOUT OCCURRED - LCOP MESSAGE TYPE RECEIVE ASSIST 
FAILING TARGET NODE ADDRESS: AA-OO-03-OO-OO-OO 
FAILING ASSIST NODE ADDRESS: AA-OO 03-OO-OO-02 



EXAMPLE OF A LOST PACKET ERROR DURING PATTERN TESTING 



CVNIA HRD ERR 00028 ON UNIT 00 TST 001 SUB 000 PC:63730 

TIMEOUT OCCURRED BEFORE L00P8ACK REPLY 
FAILING NODE ADDRESS: AA-00-03-00-00-00 
DATA PATTERN: ONES 

4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS. THE PASS COUNT IS GIVEN ALONG UITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC UAS STARTED. 
THE "EOP" SUITCm can BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SUITChES. 



5.0 DEVICE ItrORMATIGN TABLES 

THIS IS THE DEFAULT HARDWARE P- TABLE. THE VALUES AND SIZE ARE USED 
AS A "TEMPLATE" FOR CREATING ACTUAL P- TABLE ENTRIES AND THE DEFAULT 
VALUES PROVIDED FOR THE OPERATOR. SEE SECTION 2.4 FOR AN EXAMPLE OF 
THE HARDWARE QUESTIONS. 

THE NUMBERS IN BRACKETS (I.E. f61) INDICATES THE OFFSET OF THE UORD 
INTO THE HARDWARE P-TABLE. THE OFFSETS MUST MATCH THE P-TABLE OFFSETS 
USED IN THE HARDUARE PARAMETER CODING SECTION UHERE THE "GET PARAMETER' 
CALLS ARE USED TO FILL THE P-TABLE. 

.WORD 174440 ilO] CSR ADDRESS 

.WORD 300 iC2] INTERRUPT VECTOR 

.WORD 240 :(6) INTERRUPT PRIORITY (5) 



h.O TEST SUMMARIES 
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SEQ 16 



t>.l DIRECT 

THE DIRECT TEST SENDS A LOOP DIRECT MESSAGE TO ALL Or THE 
NODES CONTAINED IN THE NODE TABLE AND WAITS TOR A RESPONSE. 
THE INTEGRITY OF THE RETURNED DATA IS CHECKED AND ANr ERRORS 
ARE REPORTED TO THE OPERATOR. 

6.2 LOOPPAIR 

THE LOOPPAIR TEST SENDS ASSISTED LOOPBACK MESSAGES TO THE 

NODE PAIRS CONTAINED IN THE NODE TABLE. THREE TYPE Of ASSISTED 

MESSAGES ARE SENT: 

1) RECEIVE ASSIST - HOST -> TARGET -> ASSIST > HOST 

2) TRANSMIT ASSIST HOST > ASSIST -> TARGET -> HOST 

5) ruLL ASSIST HOST > ASSIST -> TARGET > ASSIST -> HOST 

IN EACH CASE A RESPONSE IS WAITED TOR AND THE DATA IS CHECKED. 

6.3 PATTERN 

THE PATTERN TEST SENDS SIX DIFFERENT LOOP DIRECT MESSAGES 
TO EACH NODE CONTAINED IN THE NODE TABLE. EACH OF THE SIX 
PATTERN TYPES (ALPHA. ONES. ZEROS. lALT. OALT. CCITT) 
IS USED FOR EACH NODE. RETURNED DATA IS CHECKED FOR ERRORS. 



THE ALL NODE TEST PERFORMS THE MOST EXTENSIVE CHECK OF THE 
NETWORK AND IS COMPOSED OF TWO PARTS. FIRST A LOOP DIRECT 
MESSAGE IS SENT TO EACH NODE IN THE TABLE. IF ThIS IS 
SUCCESSFUL. THE EXERCISER BUILDS AN ARRAY OF NODE PAIRS 
FROM THE TABLE AND SENDS A FULL ASSISTED LOOPBACK MESSAGE 
TO EACH PAIR IN THE ARRAY. A SAMPLE ARRAY OF PAIRS FOR A 
TABLE WITH 7 NODES IS SHOUN BELOU. 



6.4 ALL 



1-2 
1-3 
1-4 
1-5 
1-6 
1-7 



2-3 
2-4 

2 5 
2-6 
2-7 



3-4 

3-5 
3-6 
3-7 



4 5 
4-6 
4-7 



5-6 
5 7 
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QP7 
• 


.SBTTL 


PROGRAM HEADER 








' o www 


.ENABL 


ABS . AMA 


<M9 002000 




2000 
















.SBTTL PROGRAM 


1 MACROS 
















iltSTACK MACRO 




• 




957 








J ♦ ♦ ♦ 
I THE 1$ 




959 


STACK MACRO FACILITATES INITIALIZING THE R6 (HARDWARE) STACK 


960 


jAM) THE R5 (PARAMETER) STACK. R5 IS SET TO TmE STACK LOU LIMIT 


961 


:(STAKLO) AND THE PARAMETER STACK GROWS UPWARD. R6 IS SET TO THE 


96 ;> 


J STACK 


HIGH LIMIT (STAKHI) AND THE HARDWARE STACK GROWS DOWNWARD. 


96S 


J IF THERE IS A STACK OVER -RUN, IT WILL BE DETECTED Bt THE PREG14 


964 


{ROUTINE . 


965 


J 




966 






967 


. MACRO 


IISTACK STAKLO. STAKHI 


968 


.LIST 




969 


MOV 


STAKL0.R5 : INITIALIZE THE PARAMETER STACK POINTER. 


970 


MOV 


STAKHI. SP {INITIALIZE TME HARDWARE STACK POINTER. 


971 


.NLIST 




972 


.ENOM 


liSTACK 


975 






974 


(PUSH MACRO 


975 


t 




976 






977 


a •♦ » 




978 


sTHE "PUSH' MACRO FACILITATES PUSHING ITEMS ON THE HARDWARE STACK. 


979 


jUP TO 


SEVEN ITEMS MAY BE PLACED ON THE STACK WITH ONE MACRO. 


980 


! MACRO 




981 


PUSH A.B.C.D.E.F.G 


982 






985 


.IF NB 


G 


984 


.LIST 




985 




MOV G. (SP) 


986 


.NLIST 




967 


.ENDC 




988 






989 


.IF N8 


F 


990 


.LIST 




991 




MOW F. (bP) 


992 


.NLIST 




995 


.ENDC 




994 






995 


.IF NB 


E 


996 


.LIST 




997 




MOV E. (SP) 


998 


.NLIST 




999 


.ENDC 




1000 






1001 


.IF NB 


D 


1002 


.LIST 





F2 
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1005 MOW D. CjP) 

1004 .NLIST 

1005 .ENOC 
1006 

lOO' .ir NB C 

1008 .LIST 

1009 MOV C . I iP ) 

1010 .NLIST 

1011 .ENDC 
1012 

1015 .IF ^« B 

1014 .LIST 

1015 MOW 8. fSP) 

1016 .NLIST 

1017 .ENDC 
1018 

1019 .IF NB A 

1020 .LIST 

1021 MOV A. fSP) 

1022 .NLIST 

1023 .ENDC 
1024 

1025 .ENDM PUSH 
1026 

1027 J POP MACRO 

1028 » 

1029 

1030 i » » * 

1031 I THE "POP" MACRO FACILITATES RETRIEVING ITEMS FROM THE HARDUARE STACK. 

1032 lUP TO SEVEN ITEMS MAf BE RETRIEVED UlTH ONE MACRO. 

1033 I- - 
1034 

1035 .MACRO POP A.B.C.O.E.F.G 
1036 

1037 .IF NB A 

1038 .LIST 

1039 MOV (SP)..A 

1040 .NLIST 

1041 .ENOC 
1042 

1043 .IF NB B 

1044 .LIST 

1045 MOV (bP1..B 

1046 .NLIST 
104 7 .ENOC 
1048 

1049 .IF NB C 

1050 .LIST 

1051 MOV (SP>..C 

1052 .NLIST 

1053 .ENDC 
1054 

1C55 .IF NB 0 

1056 .LIST 

1057 MOV vbP)..0 

1058 .NLIST 

1059 .ENDC 
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lOe.0 



1061 .IF NB E 

106^ .LIST 

1063 MOV (SP)*.E 

1064 .NLIST 

1065 .ENOC 
1066 

1067 .ir NB r 

1068 .LIST 

1069 MOV (SP)».F 

1070 .NLIST 

1071 .ENOC 
1072 

1073 .IF NB G 

1074 .LIST 

1075 MOV CSP)^.G 

1076 .NLIST 

1077 .ENOC 
1078 

1079 .ENOn POP 
1080 

1081 (CALL MACRO 

1082 t 

1083 

1084 t » • * 

1085 I THE CALL MACRO FACILITATES CALLING A SUBROUTINE VIA THE REGISTER 

1086 iPRESERVE ROUTINE (PREG14). IT PLACES THE PARAMETERS TO SE PASSED ON 

1087 J THE PARAMETER STACK. UP TO 7 PARAMETERS MAY BE PASSED USING THIS 
1068 (MACRO. 

1089 ; - - - 
1090 

1091 .MACRO CALL S A.B.C.D.E.F.G 

1092 

1093 .IF NB G 

1094 .LIST 

1095 MOV G.(R5)* 

1096 .NLIST 

1097 .ENOC 
1098 

1099 .IF NB F 

1100 .LIST 

1101 MOV F.CRS). 

1102 .NLIST 

1103 .ENOC 
1104 

1105 .IF NB E 

1106 .LIST 

1107 MOV E.CR5). 

1108 .NLIST 

1109 .ENOC 
1110 

1111 .IF NB 0 

1112 .LIST 

1113 MOV D.(.RS>. 

1114 .NLIST 

1115 .ENOC 
1116 
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III? .ir NB C 

1118 .LIST 

1114 MOV C.(R5). 

1120 .NLIST 

1121 .ENDC 
1122 

1123 .jr NB B 

1124 .LIST 

1125 •lOV B.(R5). 
Il2b .NLIST 

1127 .ENDC 
1120 

112«» .IF NB A 

1150 .LIST 

1151 MOV A.(R5). 

1152 .NLIST 

1153 .ENDC 
1154 

1135 .LIST 

1136 JSR R4.PREG14 
1157 .WORD S ANCHOR 
1138 .NLIST 

1159 .ENOM CALL 

1140 

1141 (RETURN MACRO 

1142 t 

1143 

1144 

1145 (THE RETURN MACRO FACILITATES PASSING PARAMETERS BACK TO A CALLING 

1146 jROUTINE. UP TO 7 PARAMETERS MAY BE PASSED BACK ON THE PARAMETER 

1147 J STACK. 
1146 i--- 
1149 

1150 .MACRO RETURN A.B.C.D.E.F.G 

1151 

1152 .IF ND G 

1155 .LIST 

1154 MOV G.(R5)* 

1155 .NLIST 

1156 .ENDC 
1157 

1156 .IF NB F 

1159 .LIST 

1160 MOV F.(R5)» 

1161 .NLIST 

1162 .ENDC 
1163 

1164 .IF NB E 

1165 .LIST 

1166 MOV E.(R5)* 

1167 .NLIST 
1166 .ENDC 
1169 

1170 .IF NB 0 

1171 .LIST 

1172 MOV 0.(R5). 
117S .NLIST 
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li;4 .ENOC 

1175 

1176 .ir NB C 

11'7 .LIST 

1178 MOV C.fR5). 

1179 .NLIST 
1160 .ENOC 
1101 

1182 .IF N8 B 

1183 .LIST 

1164 MOV B.(R5). 

1185 .NLIST 

1186 .ENOC 
1187 

1188 .IF NO A 

1189 .LIST 

1190 MOV A,CR5J. 

1191 .NLIST 

1192 .ENOC 
1195 .LIST 

1194 RTS PC 

1195 .NLIST 

1196 .ENDM RETURN 
1197 

1198 iPtPUSH MACRO 

1199 8 

1200 

1201 

1202 iTME P$PUSM MACRO FACILITATES PUSHING PARAMETERS ON THE PARAMETER 

1205 I STACK. UP TO SEVEN ITEMS MAY BE PUSHED WITH ONE MACRO. 
1204 I - • • 

1205 

1206 .MACRO PtPUSH A.B.C.O.E.F.G 

1207 

1208 .IF NB G 

1209 .LIST 

1210 MOV G.(R5). 

1211 .NLIST 

1212 .ENOC 
1215 

1214 .IF NB F 

1215 .LIST 

1216 MOV F.CR5)» 

1217 .NLIST 

1218 .ENOC 
1219 

1220 .IF NB E 

1221 .LIST 

1222 MOV E.CR5)» 

1225 .NLIST 
1224 .ENOC 
1225 

1226 .IF NB 0 

1227 .LIST 

1228 MOV 0.(R*>>« 

1229 .NLIST 
1250 .ENOC 
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1231 

1252 .IP NB C 

1253 .LIST 

1254 MOV C.(R5>. 

1255 .NLIST 

1256 .ENOC 
1257 

1238 .IF NB B 

1259 .LIST 

1240 MOV B.(R5). 

1241 .NLI5T 

1242 .ENOC 
1245 

1244 .ir NB A 

1245 .LIST 

1246 MOV A,(R5)» 

1247 .NLIST 

1248 .ENOC 
1249 

1250 .ENDM P$PUSH 
1251 

1252 ;P$POP MACRO 

1255 s 

1254 

1255 

1256 i * * * 

1257 :THE PiPOP MACRO FACILITATES RETRIEVING PARAMETERS FROM THE PARAMETER 

1258 J STACK, UP TO 7 PARAMETERS MAY BE RETRIEVED. 

1259 t 

1260 I THE ROUTINE THAT RECEIVES THE PARAMETERS HAS THE RESPONSIBILITY OF 

1261 :CLEANING UP THE PARAMETER STACK. THIS MACRO IS AN AID TO MAKING 

1262 tA LOCAL COPY OF PASSED PARAMETERS AND CLEANING UP THE PARAMETER STACK. 
1265 t- • 

1264 

1265 .MACRO P$POP A.B.C.D.E.F.G 
1266 

1267 .IF NB A 

1268 .LIST 

1269 MOV (R5).A 

1270 .NLIST 

1271 .ENOC 
1272 

1273 .IF NB B 

1274 .LIST 

1275 MOV -(R5).B 

1276 .NLIST 

1277 .ENOC 
1278 

1279 .IF NB C 

1280 .LIST 

1281 MOV -CRS^.C 
1262 .NLIST 

1265 .ENOC 
1264 

1265 .IF NB D 

1266 .LIST 

1267 MOV (R5\0 



I<2 
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1288 
1389 
1290 
1291 
1292 
1295 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1501 
1502 
1505 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1525 
1524 
1525 
1526 
1527 
1528 
1529 
1550 
1551 
1552 
1555 
1554 
1555 
1556 
1537 
1338 
1559 
1540 
1541 
1542 
1545 
1544 
1545 
1546 
1547 
1548 
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.NLIST 
.ENOC 

.ir NB E 
.LIST 

.NLIST 
.ENDC 

.IF NB F 
.LIS^ 

.NLIST 
.ENOC 

.IF NB G 
.LIST 

.NLIS1 
.ENOC 

.ENOM PtPOP 



SEG 25 



HOV 



MOV 



HOV 



(R5).E 



■(R5).F 



■(R5).G 



.MACRO CLI CHAR.HITVAL.MISAOR.CMPSTR 

NODCL CHAR.HITVAL.NXI.MISADR.CMPSTP PARSE TREE «««« 

.ENDM 



.MACRO NODCL 
NOD'XY: .BYTE 



.IF NB MISADR 
.UORO 

.ENOC 

.IF NB CMPSTR 
.WORD 



CHAR . HI T V AL . XY . MISAOR . CMPSTR 



CHAR.HITVAL 



MISADR NOD' Xr 



1$ -NOD' XY 



.ASCIZ CMPSTR 
.EVEN 

.NLIST 

1»: 

.LIST 
.ENOC 
.NLIST 
Xt-X$*l 
.LIST 
.ENOM 

.MACRO NEXT A.B 
• LIST 

.WORD A'B 
.NLIST 

.ENOM 

.MACRO RNGFRM A.B.C 



SPECIAL CHAR. CODE OR COMPARE CHAR. 
AND ACTION (HIT) VALUE FOR ACTION 
ROUTINES. 

;OISPLACEMENT TO "MISS" NODE (BtTES) 



{DISPLACEMENT TO GET TO NEXT NODE 
: CONLY IF ITS A "CLISTR" NODE) 



i SEGMENT BUFFER ADDRESS 

J MACRO TO FORM TRANSMIT AND RECEI^t 
J DESCRIPTOR RINGS. 
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1549 
1550 
1551 
1552 
1555 
1554 
1555 
1556 
1557 
1558 
1559 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1384 
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002000 

002000 
002000 
002000 
002001 
002002 
002005 
002004 
002005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
002016 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002050 
002050 
002052 
002052 
002034 
002034 
002036 
002036 
002040 
002040 



103 
126 
116 
111 
101 
000 
000 
000 

101 

060 

000000 

000000 

117114 

000000 

002170 

000000 

117312 

000000 

000000 

000001 

000000 

002164 



B-B»l 



.ENDM 



.LIST 

.WORD 

.UORD 

.NLIST 

NEXT 

.LIST 
.UORD 
.UORD 
.WORD 
.NLIST 



0 

100000 
A.\B 



C 
0 
0 



SEQ 24 



I FLAG UORD 

I SET VALID BIT (OSCR/HIGH ADDRESS WR0> 
i BUFFER LOU ADDRESS WORD 



t BUFFER SIZE 
t STATUS WORD 1 
t STATUS UORD 2 



THE PROGRAM HEADER IS THE INTERFACE BETUEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



POINTER BGNRPT 

HEADER CVNIA.A.0.0.1.PRI07 



LtNAME: 



LtREV: 
LiOEPO 
LIUNIT 
LITIML 
L$HPCP 
L$SPCP 
L»MPTP 
L$SPTP 
L »LAOP 
LISTA: 
L»C0: : 
LtDTrP 
L$APT: 
LJDTP- 



.ASCII /C/ 

.ASCII /V/ 

.ASCII /N/ 

.ASCII /I/ 

•ASCII /A/ 

.BTTE 0 
.BYTE 
.BYTE 



0 
0 



.ASCII 

.ASCII 

.UORD 

.WORD 

.WORD 

.WORD 

.WORD 

.UORD 

.UORD 

.WORD 

.UORD 

.UORD 

.UORD 

.UORD 



/A/ 

/o/ 

0 
0 

L SHARD 
0 

LSHU 
0 

lilast 

0 

0 

1 

0 

L«OIbP'»rCH 



M2 
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002042 
002042 
002044 
002044 
002046 
002046 
002050 
002050 
002051 
002052 
002052 
002054 
002056 
002056 
002060 
002060 
002062 
002062 
002064 
002064 
002066 
002066 
002070 
002070 
002072 
002072 
002074 
002074 
002076 
002076 
002100 
002100 
002102 
002102 
002104 
002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
002116 
002120 
002120 

1365 
1396 
1397 
1396 
1399 

1400 002122 
002122 
002122 
002125 



000340 

000000 

000000 

003 
003 

000000 
000000 

000000 

002122 

102106 

000000 

000000 

000000 

000000 

000000 

002130 

104035 

000000 

102126 

103372 

103370 

102120 

000000 

000000 

000000 



NAMES OF DEVICES SUPPORTED BY PROGRAM 
OEVTYP <DEQNA> 



104 
116 



105 
101 



121 
000 



SEQ 25 



L»PRIO; : 








.WORD 


PR 10/ 


LtENVI : : 








.WORD 


0 


LIEXPl : : 








.WORD 


0 


L*MREV : : 








• BYTE 


CIREVISIOf<l 




•Byte 


CIEDIT 


L*E^ : 








.WORD 


0 




.UORD 


0 


LiSPC: : 








.WORD 


0 


L IDE VP : • 








.WORD 


L iOVT yP 


Lf RtPr : 








. UORC 


L IRPT 


1 AC V n M 

L»tXP4 : 








.UOHD 


0 


1 «f VAC 

L*cXP5: 








. WORD 


0 


L$AUT : 








. WONU 


0 


LSDUT : : 








.UORu 


0 


L$LUN: : 








.WORD 


0 


L$uE5P: 








.WORD 


L IDcSC 


L$LOAD: 








EnT 


EILOAO 


LIE TP: : 








.UORD 


0 


L*ICP: : 








.WORD 


LIINIT 


LICCP: : 








.UORD 


LICLEAN 


L*ACP: : 








.UORD 


L lAUTO 


LIPRT: : 








. M'JHU 


L >KKU 1 


LITEST: 








" .UORD 


0 


LIOLY: : 








.UORD 


0 


LIMIME: 








'.UORD 


0 



LIDVTYP: : 

.ASCIZ OEQNA 
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1401 
1407 
1408 
1409 

1410 002130 
002130 



CISER/ 



1411 
1412 
1419 
1420 
1421 
1422 
1423 
1434 
1435 



002130 


103 


126 


116 


002133 


111 


104 


040 


002136 


104 


105 


121 


002141 


116 


101 


040 


002144 


116 


111 


r,<0 


002147 


105 


130 


1^5 


002152 


122 


103 


111 


002155 


123 


105 


122 


002160 


000 







TEST DESCRIPTION 
DESCPIPT 



<CVNID DEQNA NI EXERCISER) 



.EVEN 



FORMAT STATEMENTS USED IN PRINT CALLS 



SEO 26 



.EVEN 



LtOESC: : 

.ASCIZ /CVNID DEQNA M ExER 



.EVEN 
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DISPATCH TABLE 

1444 .S8TTL DISPATCH TABLE 
144S 

1446 I • • 

144" I THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OT EACH TEST. 

1445 I IT IS USED BT THE SUPERVISOR TO DISPATCH TO EACH TEST. 
1449 I - 

14M 

1451 002162 DISPATCH 1 

002162 000001 .UORO 1 

002164 LSOISPATCH:: 
002164 10S544 .UORO Tl 

145J 



C5 
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SEO 29 



1460 
1461 
146^ 
1465 
1464 
1465 
1466 
146 7 
1468 

146<» 002166 
002166 
0021 ""O 
0021 '0 

M-'O 

14 71 002170 
14 "2 002172 
14 '5 002174 
1474 
1484 

1485 0021^6 
0021-6 



.SBTTL DEFAULT HARDWARE P 3LE 



THE DEFAULT HARDWARE P TABLE CONTAINS DEFAULT VALUES OF 
THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P TABLES, 
AND IS USED AS A "TEMPLATF KOR BUILDING THE P TABLES. 



000005 



174440 
000300 
000240 



BGNHW OFPTBL 



.WORD 174440 
.WORD 300 
.WORD PR 105 



ENOHW 



.WORD L 10000 LtHU/2 



L»MW: : 
DFPTBL 1 



I CSR 
I VECTOR 
I PRIORI Tt 



L 10000: 



148; 
149a 

148<» 
14<*0 
1491 
1492 
149S 
1494 
1495 

1496 002176 

002176 000000 

002200 

002200 

1505 

1506 002200 
002200 

1507 
1506 
1509 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1540 

1541 002200 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
OOCOlO 
000004 



06 
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.sbttl '.oftuare " table 

'the sottuare table contains various data used By the 
program as operational parameters. these parameter'. are 
set up at assembly time and mat be varied br the operator 
at run time. 



BGNSU SrPTBL 



LISW: : 
SFPTBL 



ENDSU 

L 10001 

.SBTTL GLOBAL EQUATES SECTION 



!*THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
; ARE USED IN MORE THAN ONE TEST. 



EQUALS 

I 



J BIT 


D IF IN IT IONS 


BIT15- 


■• 100000 


BIT14- 


•■ 40000 


BIT13' 


■■ 20000 


BIT12' 


.. 10000 


BITll- 


.. 4000 


BITIO' 


.. 2000 


BIT09- 


.. 1000 


BITOe< 


.. 400 


BIT07. 


200 


BIT06' 


.. 100 


BIT05' 


40 


BIT04< 


.. 20 


BIT03' 


.. 10 


BIT02- 


.. 4 


BITOl- 


2 


6IT00< 


1 


BIT9-' 


■ BIT09 


BIT8- 


■ BIT08 


BIT7- 


■ BIT07 


BIT6- 


• BIT06 


BIT5- 


■ BIT05 


BIT4. 


■ BIT04 


BIT3' 


■ BIT03 


BIT?. 


■ BIT02 



E3 
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GLOBAL tOL'ATES SECTION 



3EQ 50 



000002 
000001 



000040 
000057 
000056 
000035 
000034 



BITI-- BITOI 
BITO-- BITOO 

! EVENT FLAG DEFINITIONS 

: EF32:EFI7 RESERVED FOR SUPERVISOR TO PRXRAH COHMUNICATION 



EF. START.- 32. 

EF. RESTART-- 51. 

EF. CONTINUE-- 50. 

EF.NEU-- 29. 

EF.PgR-- 28. 



I START COMMAND UAS ISSUED 

I RESTART COMMAND UAS ISSUED 

I CONTINUE COMMAND UAS ISSUED 

t A NEU PASS HAS BEEN STARTED 

i A POWER FAIL /POUER -UP OCCURRED 



PRIORITY LEVEL DEFINITIONS 



000540 


PRI07-- 


340 


000500 


PRI06-- 


300 


000240 


PRIC5-- 


240 


000200 


PRI04-- 


200 


000140 


PRI03-- 


140 


000100 


PRI02-- 


100 


000040 


PRI01-- 


40 


000000 


PRI00-- 


0 



OPERATOR FLAG BITS 



000004 


EVL-- 


4 


000010 


LOT-- 


10 


000020 


ADR-- 


20 


000040 


IDU-- 


40 


000100 


ISR-- 


100 


000200 


UAM-- 


200 


000400 


BOE-- 


400 


001000 


PNT-- 


1000 


002000 


PRI-- 


2000 


004000 


IXE-- 


4000 


010000 


IBE" 


10000 


020000 


IER-- 


20000 


040000 


Loe-- 


40000 


100000 


MOE-- 


100000 



F3 
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GLOBAt FOLATES SECTION 

1545 

1544 I 

1545 jCSR DEFINITIONS 

1546 000010 BD BIT03 tBOOT/OIAGNOST IC ROM 
154'' 001000 EL BIT09 lELOGP 

1546 010000 XC BIT12 i TRANSCEIVER 

1550 lOESCRIPTOR FIELDS 

1551 J 

1552 000000 FLAGUORD-- 0 iFLAG UORD 
1555 000010 STATS 8. iSTATUS WORD 1 

1554 000012 STAT4 10. i STATUS UORD 2 

1555 I 

1556 iOESCRIPTOR BITS 

1557 , 

1558 100000 V BITIS iVALIO BIT 

1559 I 

1560 000004 CITVECTOR-- 4 iQFFSET IN 4K ROM FOR VECTOR TO CITIZENSHIP TEST 

1561 i 

1562 s TERMINAL CONTROL CHARACTERS 
1565 J 

1564 000015 CR --15 

1565 000012 LF --12 
1566 

1567 : i (EQUATES FOR FLAG WOROiiiti 

1568 

1569 000000 CTARGT--0 

1570 000001 CASIST--1 

1571 000002 CSMCTR--2 ;ARG TYPE FOR 'SHOW COUNTERS' CMO 

1572 000004 CCLNA0--4 tARG TrPE FOR 'CLEAR NOOE/ADR CMO 

1575 000010 CCLNAL--8. {ARC TYPE FOR 'CLEAR NODE/ALL' CMQ 
1574 000020 CEXIT--16. 

1575 

1576 ittCLOCK ENABLE VALUES TJ BE LOADED IN CLK'S CSRi:t 
1577 

1578 000100 LCLKEN--100 j L -CLOCK CSR VALUE TO ENABLE THE CLOCK 

1579 000111 PCLKEN--111 j P -CLOCK CSR VALUE TO ENABLE THE CLOCK 

1580 001600 PCLKCT-«1600 i P-CLOCK COUNT SET REGISTER FOR COUNTER 
1581 

1582 : SPECIAL CLI COOtS FOR "CHAR- ARGUEMENT IN CLI CALLS 

1585 , (COMMAND LINt INTERPRETER DEFINITIONS) 

1584 000000 CLIERR- 0 

1585 000001 CLIEXT- i 

1586 000002 CLIBR - 2 

1587 OOOOOS CLKIF- 5 
1586 000004 CLISPA- 4 

1589 OOOOOS CLINUM- 5 

1590 000006 JLIALP- 6 

1591 000007 CLIALN- 7 

1592 000010 CLIOCT- 8. 

1595 000011 CLIDEC- 9. 
1594 000012 CLISTR- 10. 
1595 

1596 ;l)EFS FOR COMMAND LINE INTERPRETATION ACTION VALUES 
1597 

1598 000000 NULL-0 

1599 000001 HELP-1 



G3 
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1600 000002 NODE -2 

1601 000003 BUILD- 3 

1602 000004 CRUN-4 

1603 000005 CPATRN-5 

1604 000006 CSAVE-6 

1605 000007 SUMMRY-7 

1606 OOOOlO IDENT-10 

1607 000011 EXIT-11 

1608 000012 NOTNUF-12 
lo09 000013 CEXADR-13 

1610 000014 CSAVR4-14 

1611 000015 CNOOE-15 

1612 000016 CALPHA-16 

1613 000017 CONeS-17 

1614 000020 CZEROS-20 

1615 000021 ClALr-2l 

1616 000022 COALT -22 

1617 000023 CCCITT-23 

1618 000024 COPRSL-24 

1619 000025 CTYPE-25 

1620 000026 CSIZE-26 

1621 000027 CCPYS-27 

1622 000030 CNOADR-30 

1623 000031 CNOOAL-31 

1624 000032 CRNALL-32 

1625 000033 CLUPPR-33 

1626 000034 CSHMSG-34 

1627 000035 CCLMSG-35 

1628 000036 CCNTR-36 

1629 000037 CNOLOG-37 

1630 000040 CFUNCT-40 

1631 000041 CUNSAV41 

1632 000042 CCLSUM-42 

1633 000043 CDIR-43 

1634 000044 CDEFLT-44 

1635 000045 CUNSVr-45 

1636 000046 RSP0N0«46 

1637 8 

1638 ; MESSAGE TYPE VALUES 

1639 ; 

1640 000000 ALPHA- '0 

1641 000001 0NES--1 

1642 000002 ZEROS- -2 

1643 000003 0NEALT--3 

1644 000004 ZR0ALT--4 

1645 000005 CCITT--5 

1646 000006 0PRSEL"6 

1647 5 

1648 : GLOBAL EQUATES FOR THE DEQNA DRIVER 

1649 s 
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165 1 






.SBTTL 


BIT 


DEFINITIONS 




1652 




2 6 












1655 




J THIS SECTION 


CONTAINS BIT 


DEF INT IONS 


FUR THE QNA CSRS AND BUFFER 


1654 




: DESCRIPTORS. 


ALL 


UNDEFINED CSR BITS 


ARE RESERVED AND/OR UNUSED. 


1655 




: ALL $V 


DEFINITIONS REPRESENT BIT NUMBERS IN THE CSR. ALL SM 


1656 




s DEFINITIONS ARE A MASK OF 


THAT CSR BIT 


1657 
1658 


000000 


VHtVtN 






KJKJ 




DPPPTUPP PMAm P RTT 


1659 


000001 


nKLVtN 






1 






1660 


000001 


WDP CC T 
VHC3C 1 






01 






1661 


000002 


MDP QPT 

riNcoc 1 






£ 






1662 


000002 


vriAn 






\lc 






166S 


000004 


nriAri 






A 
■t 






1664 


000003 


VDUU 1 












1665 


OOOOlO 








1 o 








000004 


VXrlVAn 










• XMTT 1 T<iT TMUAl TD HIT 


1667 


000020 


HTMWVH 












1668 


000005 


WTMWDP 






OS 




• RFTFTWE LT5T INUAI TD BIT 


1669 


000040 








AO 






1670 


000006 








Oft 




• ENABLE INTERRUPT ON BITS 2 7 OR 15 


1671 


000100 








1 oo 






1672 


000017 


VRCVIN 




■ ■ 


17 




• OPPPTUP TKlTPRRlK>T RPOlJP<^T 


167S 


100000 


MRCVIN 




■ ■ 


100000 






1674 


000010 


VILOOP 




m m 


10 




TMTPRI4AI 1 nnPRAPK RTT 


1675 


000400 


MILOOP 




m u 


400 






1676 


000011 


VELOOP 




m u 


11 




9 pytpqnai I nnPRAPK rtt 


1677 


001000 


MELOOP 




m u 


1000 






1678 


000012 


VSANITY 




9 m 


12 




- <;ANTTy TTMFR PtsiARl P RTT 


1679 


002000 


MSANITY 




m m 


2000 






1680 


000015 


VCARRIER 




« m 


15 




P ARRTPR ^PM<;p RTT 


1681 


003000 


nCARRIER 




u w 


3000 






1682 


000007 


VXMTIN 




m m 


07 




1 XMIT INTERRUPT REQUEST 


168S 


000200 


MXMTIN 




m m 


200 






1684 




i 












1685 




1 THE FOLLOWING OEF INT IONS 


ftRE FOR THE 


nF^rRIPTOR RTT^ UHTCH ARF A PART 


1686 




lOF THE 


BUFFER 


DESCRIPTOR LIST ENTRIES 




1687 
















1688 


000006 


VHIBYT 




■ ■ 


6 




J XMIT BUFFER BEGINS ON HIGH BYTE 


1689 


000100 


hhibyt 




a ■ 


100 






1690 


000007 


VLOBYT 




■ ■ 


7 




: XMIT BUFFER BEGINS ON LOU BvTE 


1691 


000200 


MLOBVT 




■ a 


200 






1692 


000014 


VXSETP 




a a 


14 




; PACKET IS A SETUP PACKET 


1693 


010000 


MXSETP 




• a 


10000 






1694 


000015 


VEOM 




m m 


15 




J END OF MESSAGE 


1695 


020000 


MEOM 




a a 


20000 




i AORS IS ANOTHER LIST ADRS. NOT DATA 


1696 


000016 


VCHADR 




* a 


16 




1697 


040000 


HCHAOR 




a a 


40000 






1698 


000017 


VVALIO 




a u 


17 




1 VALID LIST ENTRY 


1699 


100000 


MVALIO 




m ■ 


100000 






1700 




t 












1701 




1 THE FOLLOUING DEFINITIONS 


ARE FOR 'HE FIRST STATUS WORD FROM THE QNA 


1702 




1 FOUND 


IN THE BUFFER DESCRIPTOR LIST 


ENTRIES WHEN A XMIT COMPLETES 


1703 
















1704 


000004 


VCOLLO 




a ■ 


4 




1 XMIT COLLISION COUNTER BIT ZERO 


1705 


000004 


SCOLL 




■ ■ 


4 




1 SIZE OF THE COLLISION COUNTER FIELD 


1706 


OOCOlO 


VFAIL 




■ ■ 


10 




1 HEARTBEAT COlLISION CHECK FAILURE 


1707 


000400 


MFAIL 




■ a 


400 







fcxERCISiR DIAG HACRO M1200 22 MAR 64 IS: 12 



15 

PAGE 8 1 



SEQ S4 



iros 


000015 


V ABORT 


15 






1 XHISSION ABORTED. TOO HANr COLLISIONS 


1709 


004000 


HABORT 


.. 4000 








1710 


000015 


VNOCAR 


15 






1 NO CARRIER SEEN DURING XMISSION 


1711 


002000 


MNOCAR 


2000 








1712 


000014 


VLOSS 


-• 14 






1 CARRIER LOST DURING TRANSMISSION 


1713 


010000 


MLOSS 


.. 10000 








1714 


000016 


VXOSED 


-> 16 






, XMIT BUFFER IS USED/ IN USE 


I'lS 


040000 


HXUSED 


.. 40000 








1716 


000016 


VXERRS 


16 






t XMIT ERROR OCCURRED 


1717 


040000 


MXERRS 


.. 40000 








1716 


000015 


VXLAST 


15 






1 LAST XMIT BUFFER OF A MESSAGE 


1719 


100000 


MXLAST 


100000 








1720 














1 791 




! FOLLOWING ARE 


THE DEFINITIONS 


FOR 


^TATlIC UORn P UQTTTFlM Rr ThF QMA TmF^F 


1722 




: ARE XMIT STATUS DEFINTIONS 








1723 




s 








; TIME DOMAIN REFLECT. BIT 0 


1724 


000000 


VTOR 


.. 0 






1725 


000016 


STDR 


.. 16 






J SIZE OF TIME DOMAIN REFLECT. FIELD 


1726 




t 










1727 




1 THE FOLLOWING 


DEFINITIONS 


ARE 


FOR 


STATUS WORD 1 ON A RECEIVE OPERATION 


1726 
1729 


000000 


I 

VOVF 


.. 0 






i RECEIVER OVERFLOW OCCURRED 


1730 


000001 


MOVF 


1 








1751 


000001 


VCRC 


I 






{ CRC ERROR. IGNORE IF DISCARD NOT SET 


1752 


000002 


MCRC 


2 








1735 


000002 


VFRAM 


2 






1 RECEIVE FRAMING ERROR OCCURRED 


1754 


000004 


rVRAM 


-- 4 








1755 


000003 


VSHORT 


5 






1 PACKET OF LESS THAN TEN BYTES RCVD 


1756 


000010 


nSHORT 


.. 10 








1757 


000010 


VRBL 


.. 10 






1 RECEIVED BYTE LENGTH BIT 8 


1758 


000005 


SRBL 


3 






1 SIZE OF RECEIVED BYTE LENGTH FIELD 


1759 


000015 


VRUNT 


"- 13 






1 RUNT PACKET RECEIVED. DISCARD MESSAGE 


1740 


004000 


HRUNT 


4000 








1741 


000014 


VOISC 


14 






: DISCARD THE CURRENT MESSAGE 


1742 


010000 


MDISC 


— 10000 








1743 


000015 


VRLONG 


15 






1 PACKET RECEIVED WAS TOO LARGE 


1744 


020000 


MRLONG 


20000 








1745 


000015 


VRSE'P 


15 








1746 


020000 


HRSETP 


.. 20000 








1747 


000016 


VRUSEO 


.. 16 






1 RECEIVE BUFFER IS OR BEING USED 


1748 


040000 


MRUSEO 


40000 








1749 


000016 


VRERRS 


16 






t RECEIVE ERROR OCCURRED 


1750 


040000 


MRERRS 


40000 








1751 


000017 


VRLAST 


17 






1 LAST RECEIVE BUFFER OF A MESSAGE 


1752 


100000 


MRLAST 


>- 100000 








1755 














1754 




1 THE FOLLOWING 


DEFINITIONS 


ARE 


FOR 


STATUS WORD 2 AFTER A RECEIVE OPERATION 


1755 




1 










1756 


000000 


VRBL 


.. 0 






1 RECEIVED BYTE LENGTH 


1757 


000010 


SRBL 


.. 10 






1 SIZE OF RECEIVED BYTE LENGTH FIELD 


1756 














1759 




1 THE FOLLOWING 


DEFINITIONS 


ARE 


FOR 


THE FLAG WORD IN THE BUFFER DESCRIPTOR 


1760 




1 ENTRIES 










1761 












1 THIS BUFFER IS OR BEING USED FLAG 


1762 


0000 16 


VFUSED 


16 






1765 


040000 


MFUSED 


-- 40000 








1764 


000016 


VFERRS 


.. 16 






i ERROR OCCURRED FLAG 



J3 



CVNIAAO DfQNA NI EXlRCIStR OIAC MACRO M1200 
BIT Dtf INIUONS 



22 MAR 84 15: la PAGE 8 2 



SEQ 55 



I 7t>5 


040000 


I ""66 


000017 


I 767 


100000 


1 768 




1769 




1770 




1771 


000016 


1772 


000000 


1775 


000006 


1774 


000014 


1775 




1776 




1777 




1778 


001100 


1779 


001100 


1780 


000050 


1781 




1782 


000132 


1785 


000004 


1784 




1785 




1786 




1787 


000020 


1788 


000022 


1789 


000027 


1790 


000030 


1791 


000031 


1792 


000035 


1793 


000042 


1794 


000053 


1795 




1796 




1797 




1798 


000016 


1799 


000020 


1800 


000022 


1801 


000030 


1802 


000032 


1603 




1804 




1805 




1606 




1607 


000016 


1606 


000020 


1609 


000022 


1610 


000030 


1611 


000032 


1612 


000040 


1613 


000042 


1814 


000050 


1615 


000052 


1616 




1617 




1816 




1619 


000000 


1620 


000002 


1621 


000004 



MFERRS 
VFLAST 
MTLAST 



MEAOER 
DESTIN 
SOURCC 
PROTOT 



.. 40000 
17 

100000 

ETMERNET PACKET OFFSETS 



, LAGT BUFFER Of A MESSAGE 



14. 

0 

6 

12. 



I OFFSET (SIZE) TO END OF 
i DESTINATION ADDRESS 
t SOURCE ADDRESS 
s PROTOCOL TYPE FIELD 



HEADER IN BfTES 



MISCELLANEOUS DEFS 



XPKLEN 
RPKLEN 
TBLLEN 

STBLEN 
FRDADR 



1100 
1100 
40. 

90. 
4 



t XMT PACKET LENGTH IN BrTES 

; RCV PACKET LENTH IN BYTES 

: NODE TABLE LENGTH (CHANGE STBLEN IF 

: THIS IS CHANGED. OR ELSE!) 

; SUMMARY TABLE LENGTH (• 2.25 X TBLLEN) 

s OFFSET FOR MESSAGE HEADERS 



SYSTEM ID REPLY MESSAGE OFFSETS 



RIFUNC 

SIRCPT 

SIVERS 

SIECO 

SIUECO 

SIFNCT 

SIADDR 

SIOEV 



20 
22 
27 
30 
31 
35 
42 
53 



LOOP DIRECT OFFSETS 



LDSKIP • 
LDFCTl ■ 
LDAORl - 
LDFCT2 ■ 
LDADR2 - 



■ 16 

• 20 

■ 22 

• 30 
- 52 



FULL ASSIST OFFSETS 

FASKIP 16 

FAFCTl 20 

FAADRl ■> 22 

FAFCT2 50 

FAADR2 " 32 

FAFCT3 40 

FAADR3 42 

FAFCT4 50 

FAADR4 52 

! COUNTER OFFSETS 

C.SIZ 0 
C.SECS 2 
C.PREC 4 
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SEQ 56 



1622 
1825 
1824 
1825 
1826 
1827 
1828 
1829 
1850 
1851 
1852 
1835 
1854 
1855 
1836 
1857 
1858 
1859 
1840 
1841 
1842 
1845 
1844 
1845 
1846 
1847 
1848 
1849 
18S0 
1851 
1852 



1864 
1665 
1666 
1667 
1666 
1669 
1670 
1671 
1672 
1675 
1674 
1675 
1876 
1677 
1876 



000010 
000014 
000016 
000020 
000024 
000050 
000052 
000034 
000040 
000044 
000050 
000054 
000060 
000064 
000070 
000072 
000074 



000001 
000002 
000004 
000010 



000001 
000002 
000004 
000010 



000002 
000001 
000005 



000000 
000004 
000006 
000010 
000012 
000014 
000016 



r MQPr • 


■ 10 


C . RERB • 


• 14 


C '. RERR ■ 


■ 16 


r ' ROAT ■ 


• 20 


C . RMOB ■ 


■ 24 


c'rlin ■ 


• 30 


C.RLEX ■ 


■ 32 


c!pXMT ■ 


• 34 


c!mxmt • 


• 40 


c!pxM5 • 


- 44 


c!pxM2 • 


■ 50 


C.PXMO • 


• 54 


C.XOAT » 


. 60 


C.XMOB - 


- 64 


C.XABB - 


• 70 


C.XABT - 


• 72 


C.COLL • 


• 74 



XMIT ABORT REASON MASK BIT DEFINITIONS 



C.RTRY 
C.LCAR 
C.SHRT 
C.OPEN 



BITOO 
BITOl 
BIT02 
■- BIT05 



RECEIVE ERROR REASON MASK BIT DEFINITIONS 



C.CRC 
C.FRAM 
C.MLEN 
C.RUNT 



BITOO 
BITOl 
BIT02 
BIT05 



1855 










1854 




! ROUTINE 


FUNCTION CODES 




1855 










1856 


000000 


BMPRrv - 


■ 0 


• 


1857 


000001 


BMPXMT ■ 


■ 1 




1856 


000000 


INIADR • 


■ 0 




1859 


000001 


ADDMUL ■ 


• 1 




1860 


000002 


KILMUL ■ 


• 2 




1661 


000000 


XMTSET • 


■ 0 




1662 


000001 


XMTOAT • 


■ I 




1665 











UPDATE DECEIVE COUNTERS 

UPDATE TRANSMIT COUNTERS 

INITIALIZE ADDRESS SETUP TABLE 

ADO MULTICAST ADDRESS TO SETUP TABLE 

KILL MULTICAST ADDRESS IN SETUP TABLE 

XMIT AN ADDRESS SETUP PACKET 

XMIT A DATA PACKET 



FUNCTION CODES FOR LOOP -SERVER PACKETS 



FORWRD 


2 


REPLY 


1 


lOFUNC 


5 


1 ONA DEVICE r 


NET ADD 


0 


LORCV 


.. 4 


HIRCV 


6 


LOXMT 


10 


HIXMT 


12 


VECTOR 


.. 14 


CSR 


16 



L3 
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IT TINITIONS 

1979 i 

1880 :BurrER DESCRIPTOR OFFSET DEFINITIONS 

1881 



1882 


000000 


FLAG 


.. 0 


1883 


000002 


DCSC 


•• 2 


1884 


000002 


HI ADO 


■• 2 


188S 


000004 


LOAOO 


.. 4 


1886 


000006 


UROCNT 


6 


188"' 


000010 


STATl 


■• 10 


1888 


000012 


STAT2 


■- 12 


1889 




• " 





SEQ 3 7 



M3 



VNIAAO DEQNA Nl EXERCISER OIAG MACRO M1200 22 MAR 84 15: 12 PAGE 9 
LOSAL DATA SECTION 



SEO 



1891 








.SBTTL 


GLOBAL 


1692 












1893 






i COMMAND LINE 


BUFFER, D 


1894 












1895 


002200 


000000 


BLOFLG 


.WORD 


0 


1896 


002202 




CMDBUF 


.BLKB 


72. 


1897 


002312 


000000 


KEYUOl 


.UORD 


0 


1898 


002314 


000000 


KEYU02 


.WORD 


0 


1899 


002316 


000000 


ADRBUF 


.UORD 


0 


1900 


002320 


000000 




.UORD 


0 


1901 


002322 


000000 




.UORD 


0 


1902 


002324 




STRBUF 


.BLKB 


18. 


1903 


002346 




STRBUl 


.BLKB 


18. 


1904 


002370 


000000 


CBOADR 


.WORD 


0 


1905 


002372 


000000 


P»TYPE 


.UORD 


0 


1906 


002374 


000000 


PiSIZE 


.UORD 


0 


1«0' 


002376 


000000 


P$CPYS 


.UORD 


0 


19U6 


002400 


000000 


PIPASS 


.UORD 


0 


1909 


002402 


000000 


LSRTRY 


.UORD 


0 


1910 


002404 


000000 


NCRTRY 


.UORD 


0 


1911 


002406 


000000 


NODTY: 


.UORD 


0 


1912 


002410 


000000 


SLOT:: 


.UORD 


0 


1913 


002412 




N0DT6L 


.BLKU 


TBLLEN 


1914 


002532 


177777 




.UORD 


177777 


1915 


002534 


177777 




.UORD 


177777 


1916 


002536 




SAVTBL: .BLKU 


TBLLEN 


1917 


002656 


177777 


ILLAOR: .WORD 


177777 


1918 


002660 


177777 




.UORD 


177777 


1919 


002662 


177777 




.UORD 


177777 


1920 


002664 




STATBF 


: .BLKB 


30 


1921 


002714 




STATBL 


.BLKU 


STBLEN 


1922 


003200 


177777 




.UORD 


177777 


1923 


003202 


000000 


RSPFLG: .UORD 


0 


1924 












1925 






: COMMAND LINE 


TRAVERSE 


1926 












1927 


003204 


000000 


PIBUFA: .WORD 


0 


1928 


003206 


000000 


PtTREE 


: .WORD 


0 


1929 


003210 


000000 


P$ACT: 


.WORD 


0 


1930 


003212 


000000 


PICNT: 


.UORD 


0 


1931 


003214 


000000 


P»NOM: 


.UORD 


0 


1932 


003216 


000000 


PIRAOX 


: .WORD 


0 


1933 


003220 


000 


p$NNur 


: .BYTE 


0 


1934 


003221 


000 


P$GOBO 


: .BYTE 


0 


1935 


003222 


000 


PIAERR 


: .BYTE 


0 


1936 


003223 


000 


P$riERR 


! .BYTE 


0 


1937 












1938 


003224 


055120 


HLPTAB 


.WORD 


MELPl 


1939 


003226 


055221 




.UORD 


MELP2 


1940 


003230 


0SSS14 




.UORD 


HELPS 


1941 


003232 


055365 




.WORD 


HELP4 


1942 


00S2S4 


055436 




.WORD 


MELP5 


1943 


003236 


055536 




.UORD 


HELP6 


1944 


003240 


055651 




.WORD 


HELP7 


1945 


003242 


055762 




.UORD 


HELP8 


1946 


003244 


056052 




.UORD 


MELP9 


1947 


003246 


056141 




.WORD 


MELPIO 



J INDICATES THAT UE ARE IN TABLE BUILD MODE 
i BUFFER FOR OPERATOR COMMANDS 



I BUFFER FOR NODE ADDRESS 



! BUFFER FOR ALPHANUM. ADDRESS STRING 

POINTER FOR BEGINING OF ADDRESS STRING 

LOC. TO HOLD MESSAGE TYPE 

LOC. TO HOLD MESSAGE SIZE 

LOC. TO HOLD NO. OF MESSAK COPIES 

LOC. TO HOLD NO. OF PASSES 
NUMBER OF RETRIES FOR LOSS OF CARRIER 
NUMBER OF RETRIES FOR NO CARRIER 

LOC. TO HOLD NODE TYPE FOR NODE TABLE SETuP 

USED BY NODE TABLE SUBROUTINES 
SPACE FOR NODE TABLE 

FILL LAST FOUR BYTES OF TABLE UITH ONES 

SPACE FOR SAVE TABLE 

ILLEGAL ADDRESS FOR COMPARISON 

(MUST NOT BE PHYSICALLY SEPARATED FROM 

END OF SAVTBL) 

BUFFERS SUMMARY TABLE FOR SUMMARY REPORT 
SPACE FOR SUMMARY TABLE 

INDICATES IF UE ARE IN RESPONOER MODE 



sLOC. TO MOLD ADDR. OF CMO LINE BUFFER 
:LOC. TO HOLD ADDR. OF PARSING TREE 
jLOC. TO MOLD ADDR. OF ACTION ROUTINE 
iLOC. TO BE A COUNTER LOCATION 
J LOC. TO HOLD NUMERIC VALUE FROM PARSE 
sLOC. TO MOLD RADIX(LO) £ ./-(HI BYTE) 
(RETURN -0 IF ENOUGH OF COMMAND FOUND 
sRETijRN CODE 0 IF NO ERROR FOUND 
{RETURN 0 IF 12 DIGIT ADDRESS ENTERED 
(RETURN -1 IF ERROR IN OPERATOR SELECTED 
(MESSAGE INPUT OCCUREO. 0 FOR GOOD INPUT 



N3 



EVNIAAO OEONA NI EXERCISER DIAG MACRO H1200 
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S£Q 39 



1946 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1956 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1961 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 



005250 
003252 
003254 
003256 
003260 
003262 
003264 
003266 
003270 
003272 
003274 
003276 
003300 
003302 
003304 
003306 
003310 
003312 
003314 
003316 
003320 
003322 
003324 
003326 
003330 
003332 
003334 
003336 
003340 



003342 
003342 
003344 
003346 
003350 
003352 
003354 
003356 

003360 
003360 
003362 
003364 
003366 
003370 
003372 
00S374 

003376 
003401 
003404 
003407 
003412 
003415 
003420 



056232 
056330 
056435 
056542 
056641 
056740 
057043 
057132 
057235 
057305 
057410 
057466 
057551 
057652 
057752 
060102 
060166 
060272 
060374 
060513 
060563 
000000 
061536 
061544 
061551 
061557 
061564 
061571 
061577 



000130 
000001 
000001 
000001 
000001 
000100 
000000 



003376 
003526 
003527 
003530 
003531 
003532 
003632 

040 
043 
046 
051 
054 
060 
063 



HLPEND : 
MSGTAB: 



.UORD 
.WORD 
.UORO 
.WORD 
.UORO 
.UORO 
.UORD 
.UORD 
.UORD 
.UORD 
.UORO 
.UORD 
.WORD 
.UORD 
.UORD 
.UORD 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORO 
.UORD 
.UORO 
.UORO 
.UORO 
.UORO 



HELP 11 
HLP115 
HELP 12 
HELP 13 
HELP 14 
HELP 15 
HELP16 
HELP 17 
HELP 18 
HELP 19 
HELP20 
HELP21 
HELP22 
HELP23 
HELP24 
HELP25 
HELP26 
HELP27 
HELP28 
HELP29 
HELP30 
0 

MSGTYO 
MSGTYl 
MSGTY2 
MSGTy3 
MSGTY4 
MSGTY5 
MSGTY6 



:MESSAGE TYPE ASCII ADDRESS TABLE 



THIS SECTION DEFINES THE DATA PATTERNS USED Br THE EXERCISER 



MSGCNT 

MSGOC 

MSGIC 

MSG2C 

MSG3C 

MSG4C 

MSG5C 

MSG6C 

riSGAD: 



.WORD 
.WORD 
.UORO 
.UORO 
.UORO 
.UORD 
.WORD 



.UORO 
.WORD 
.UORO 
.UORO 
.WORD 
.WORD 
.UORD 



EMSGO-MSGOO 
EMSGl-MSGOl 
EMSG2-MSG02 
EMSG3-MSG03 
EMSG4-MSG04 
EMSG5-MSG05 
0 



MSGOO 
MSGOl 
MSG02 
MSG03 
MSG04 
MSG05 
OPSLBF 



THE NUMBER OF BYTES IN EACH MESSAGE 



041 
044 

047 

052 
055 
061 
064 



042 MSGOO: 
045 

050 
053 
057 
062 
065 



ASCII V !"«»«6'()*». /0123456789: j<->?aABC0EFGHlJKLMNOPQRSTUVUXYZ\ 



1999 



CVNIA<H} OEQNA NI EXERCISER DIAG NACRO NIZOO 
CLOeAL DATA SECTION 



005423 
0054^ 
00S4S1 
003434 
003437 
003442 
003445 
003450 
005453 
003456 
003461 
003464 
003467 
003470 
003473 
003476 
003501 
00SS04 
003507 
003512 
003515 
003520 
003523 
003526 
003526 
003527 
003527 
00S5S0 
003530 
00S5S1 
003531 
003532 
003532 
003532 
003540 
003546 
003554 
003562 
003570 
003576 
003604 
005612 
005620 
005626 
005652 
005652 
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SFQ 



2000 
2001 
2002 
2005 
2004 
2005 
2006 
2007 
2006 
2009 
2010 

2011 

2012 

2015 

2014 

2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2025 
2024 
2025 
2026 
2027 
2028 



066 


067 


070 


071 


072 


073 


074 


075 


07b 


077 


100 


101 


102 


103 


104 


105 


106 


107 


110 


111 


112 


113 


114 


115 


116 


117 


120 


121 


122 


125 


124 


125 


126 


127 


130 


151 


152 






155 


155 


156 


055 


101 


102 


105 


104 


105 


106 


107 


110 


111 


112 


113 


114 


115 


116 


117 


120 


121 


122 


125 


124 


125 


126 


127 


130 


151 




577 






000 






252 






125 







.ASCII ABCOErGHlJKLMNOPQRSTuvuXTZv 



s AuPHAMUtlERIC 



EnSGO. 








nsGOl 




.BYTE 


577 


EnSGl 


• 
• 






nSG02 




.BYTE 


0 


EnSG2 








NSG03 




.BtTE 


252 


EHSG5 








nSG04 


' * 


.BYTE 


125 


ENSG4 








MSG05 


< S 







177605 
047521 
145525 
104116 
10S02S 
111525 
157642 
155075 
052012 
151172 
166652 



157427 
165715 
142504 
052606 
125754 
050050 
145551 
066750 
055627 
165044 
016147 



051011 
105221 
040041 
172554 
111537 
145064 
065617 
026575 
070071 
051605 



EnSG5: : 
OPSLBf : 



I MESSAGE Of ALL ONES 

I MESSAGE OF ALL 2ERCS 

t MESSAGE or ALTERNATING ONES 

I MESSAGE OF ALTERNATING ZEROS 

» CCITT 511 BIT TEST PATTERN 
.UORO 177605.157427.051011.0473^1.163715.105221 

. UORO 143325 . 142304 . 04004 1 . 104 1 16 . 052606 . 1 72 334 

. WORD 105025 . 123754 . 1 1 1 337 . 1 1 1525 .050050. 145064 

.WORD 137642.143551.065617.135075.066730.026575 

.WORD 052012.053627.070071. 1511 72. 165044 .031605 

.WORD 166632.016147 

.BLKB 66. iBorrER FOR OPERATOR SELECTED MESSAGE TvPE 



003754 000000 



005736 
005740 
005742 
005744 
005746 



000000 
000000 
000000 
000000 
000000 



CrLAG: .UORO 0 

iiCLOCK TABLES. EVENT LOG AND POINTERS 



■ACTION ROUTINE CMD ARGUMENT FLAG 



CLKCSR: .UORO 0 

CLKBR: .UORO 0 

CLKVEC: .WORD 0 

CLKHZ: .WORD 0 

CLKEN: .WORD 0 



CLOCK CSR ADORES^ 
CLOCK INTERRUPT LEVEL 
CLOCK INTERRUPT VECTOR 
CLOCK- S fPEQUCNCt IN HERTZ 
CLOCK S CSR VALUE TO INTRPT. ENABLE H 



C4 
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SEQ 41 



2029 


OOS750 


000000 


TIMMIN: 


.UORO 


0 


20S0 


003752 


000000 


TIMSEC: 


.WORD 


0 


2051 


003754 


000000 


TIMTCK: 


.WORD 


0 


20S2 


003756 


000000 


TIMERl: 


.WORD 


0 


2055 


003760 


000000 


TIMER2: 


.MORD 


0 


2034 


003762 


000000 


TIMERS: 


.UORD 


0 


2055 








.EVEN 





2036 
2057 
2058 

2059 005764 

2040 005766 

2041 005770 

2042 005772 
2045 

2044 
2045 

2046 005774 
204 7 005776 
2048 004000 
2049 

2050 
2051 

2052 004002 

2053 004004 

2054 004006 
2055 

2056 
2057 

2058 004010 

2059 004012 

2060 004014 
2061 

2062 
2063 

2064 004016 

2065 004020 

2066 004022 
2067 

2068 
2069 

2070 004024 

2071 004026 

2072 004030 
2073 

2074 
2075 

2076 004032 

2077 004034 

2078 004036 
2079 

2080 
2061 

2082 004040 

2083 004040 

2084 004042 

2085 004044 



000000 
000000 
000000 
000000 



000000 
000000 
000000 



000000 
000000 
000000 



000000 
000000 
000000 



177777 
177777 
177777 



000317 
000000 
000000 



000253 
OOlOOO 
000000 



000000 
100000 
025/72 



I PLACE TO KEEP TIME SINCE -START 

I PLACE TO KEEP NO. V TICKS/SEC. 

I EVENT TIMER «1 (TICKS) 

I EVENT TIMER 42 (TICKS) 

I EVENT TIMER 45 (SECONDS) 



(BUS ADDRESSES 0^ QNA HARDWARE REGISTERS 



ROMADl: : .WORD 0 

.UORD 0 

RLSTLO: : .WORD 0 

RLSTHI::.UORD 0 



DEFAULT PHYSICAL NODE ADRRES 

DEPAOR : : . WORD 

.WORD 
.UORD 



lON READ. GET QNA ADDRESS. LOUER BvTE OF 1ST 
I THREE REGISTERS. 

iLOU BYTE OF STARTING ADDRESS OF RECEIVE LIST 
IHIGH Byte of STARTING ADDRESS OF RECEIVE LIST 



0 I PHYSICAL ADDRESS UORD 0 

0 I PHYSICAL ADDRESS UORD 1 

0 I PHYSICAL ADDRESS UORD 2 



ADDRESS OF ALL ZEROES. USED TO INIT THE TARGET ADDRESS TABLE 



NO ADR: 



.UORD 
.UORD 
.UORD 



CURRENT PHYSICAL ADDRESS 
PHY ADR: : 



.UORD 
.UORD 
.UORO 



0 
0 
0 



0 
0 
0 



s PHYSICAL ADDRESS UORD 0 
i PHYSICAL ADDRESS UORD 1 
I PHYSICAL ADDRESS uORD 2 



BROADCAST ADDRESS 
BROAOR: 



rF.FF-Ff FF FF 



.UORD 
.UORD 
.UORD 



LOOP -SERVER MULTICAST ADDRESS 

LPAOR:: .UORD 
.UORD 
.UORD 



CF 00 00 00 00-00 



317 

0 

0 



DECNET MULTICAST ADDRESS FQR CONSOLE 10 
MCSTAD: 



AB 00 00 02 00 00 



.UORD 
.UORD 
.UORD 



253 
1000 
0 



( RCV RING DESCRIPTOR ENTRY FOR SETUP MODE 



LORTGT: 



.UORD 
.UORD 
.UORO 



0 

100000 
RCVTGT 



J LOU AORS OF TARGET ADRS T8L OtbCPP'^R 

, AGAIN FOR LAST ENTR> 

I SET VALID BIT 

! ADDRESS OF RECEIVE 8L»f6R 
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SEQ 42 



2086 


004046 


000000 


2067 


004050 


000000 


2086 


004052 


000000 


2089 


004054 


000000 


2090 


004056 


000000 


2091 






2092 






2095 






2094 


004060 




2095 


004060 


000000 


2096 


004062 


100000 


2097 


004064 


025570 


2096 


004066 


000000 


2099 


004070 


000000 


2100 


004072 


000000 


2101 


004074 


000000 


2102 


004076 


000000 


2105 






2104 






2105 






2106 






2107 




000100 


2106 




000151 


2109 


004100 




2110 






2111 






2112 






2115 






2114 






2115 






2116 






2117 






2116 






2119 




000014 


2120 




002554 


2121 


021200 




2122 


025554 




2125 






2124 






2125 






2126 






2127 






2126 






2129 






2150 






2151 




014100 


2152 




024100 


2155 






2154 






2155 






2156 






2157 


025570 




2156 


025570 




2159 


025600 




2140 


025610 




2141 


025620 




2142 


025650 





.UORO 
.UORO 
.UORO 
.UORO 
.WORD 



0 
0 
0 
0 
0 



I JUST ENOUGH or THE NEXT DESCRIPTOR 
I TO INVALID LIST 



xniT RING DESCRIPTOR ENTRY FOR SETUP MODE 



t 

LOXTGT: 



.UORO 
.UORO 
.UORO 
.UORO 
.UORD 
.UORD 
.UORD 
.UORD 



0 

100000 

TGTAOR 

0 

0 

0 

0 

0 



CITIZENSHIP TEST SETUPS 



{RECEIVE BUFFERS 
SMLSI2 64. 
RBUFNR -- 105. 
RBUFB: .BLKB RBUFNR^SMLSIZ 

' jRECEIVE DESCRIPTORS 



t LOU ADPS OF TARGET AORS TBL OESCRPTR 

I AGAIN fOR LAST ENTRY 

; SET VALID BIT 

I ADDRESS OF TARGET FIELD 



» JUST ENOUGH OF THE NEXT DESCRIPTOR 
i TO INVALID LIST 



jSMALLEST SIZE IN BtTES OF ETHERNET PACKET 

iNUHBER OF RECEIVE BUFFERS 

tlOO RECEIVE BUFFERS. 64 Bttes EACh. 



THERE ARE RBUFNR* 1 DESCRIPTORS. ALL OF THEM EXCEPT THE LAS^ ONE 
ARE DATA DESCRIPTORS. I.E. THE ONLY CHAIN DESCRIPTOR IS THE LAST 
ONE TO CREATE A RING. COHMUNICATIONS UITH THE TESTER IS 
HALF -DUPLEX. I.E. PACKETS ARE RECEIVED ONE AT A TIME UNTIL THE 
COMPLETE MESSAGE IS RECEIVED. 



R0ESS2 
ROE SAL " 
RDESC: .BLKB 
.BLKB 
.EVEN 



12. 

RDESSZ*R6UFNR 

RDESAL 

RDESSZ 



jSIZE IN BYTES OF EACH RECEIVE DESCRIPTOR 
jSIZE IN BYTES OF ALL DESCRIPTORS 
tSTORAGE FOR RBUFNR RECEIVE DESCRIPTORS 
; PLUS CHAIN DESCRIPTOR TO GIVE A RING 



t CITIZENSHIP UORK BUFFER 

I THE BOOT/DIAG ROM LOADS INTO THE FIRST 4KB OF THE RECEIVE BUFFERS. THE 4kw 
s UORK BUFFER EXTENDS FROM THERE THROUGH THE TRANSMIT BUFFERS INTO TmE 
; STORAGE AREA THAT IS CREATED BELOU. 

CITUORK -> RBUFB *4096. iBEGINNING OF 4KU UORK B(.»^FER 

CITUEND CITU0RK*4096. |EN0*1 OF UORK BLTFER 

i 

I TABLE OF TARGET ADDRESSES USED IN SETUP MODE 
TGTADR: 



.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 



6. 
8. 
6. 
8. 
8. 



J BYTE 0 OF ALL ADDRESSES I 

J BYTE I • 

I btte ^ 

J BYTt 3 

» BYTE 4 



CVNIA40 OEOM HI EXERCISER OIAG MACRO M1200 
GLOBAL DATA SECTION 



b4 
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SEQ Al 



21*5 


023640 


.BLK6 


8. 




1 Bt It 


5 ' ' 


2144 


023650 


.BLKB 


6 . 




1 B ' TE 


6 ' 


2145 


023660 


.BLKB 


8. 




1 BTTE 


7 ' " ' ' 


2146 


023670 


.BLKB 


8 . 




1 BYTE 


0 Or ALL ADORE SStS 8 


2147 


023700 


.BLKB 


8 . 




I BY It 


1 ' • 


2148 


023710 


.BLKB 


8 . 




I BT It 


a ' " " 


el4«* 




Ql irQ 


a 
O . 




• Q V TP 
1 D T 1 1 




2150 


023730 


.BLKB 


8. 




J BrTE 


4 ' 


2151 


023740 


.BLKB 


8. 




» BrTE 


5 " " 


2152 


023750 


.BLKB 


8. 




» BYTE 


6 


2153 


023760 


.BLKB 


8. 




1 BYTE 


7 


2154 


025770 


TGTSIZ: 










2155 


023770 000200 


.WORD 


TGTSIZ 


■ TGTAOR 


t SIZE 


or THE TARGET ADDRESS 



2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 

2191 024212 

2192 024212 
2193 

2194 



023772 
023772 
024002 
024012 
024022 
024032 
024042 
024052 
024062 
024072 
024102 
024112 
024122 
024132 
024142 
024152 
024162 



024172 
024172 
024174 
024176 
024200 
024202 
024204 
024206 
024210 



2195 
2196 
2197 
2198 
2199 



024214 
024216 
024220 
024222 
024224 



025674 
026774 
030074 
031174 
032274 
033374 
034474 
035574 



024574 



024236 
024260 
024236 
024260 
024236 



14 



RECEIVE BUFFER FOR TARGET ADDRESSES LOOPED BACK IN SETUP MODE 



I 
> 

RCVTGT ! 



TABLE OF 



.BLKB 


8. 


i 


BYTE 


0 OF 


ALL 


ADDRESSES 


.BLKB 


8. 


s 


BYTE 


1 • 






.BLKB 


8. 


t 


BYTE 


2 






.BLKB 


8. 


i 


BYTE 


3 " 






.BLKB 


8. 


1 


BYTE 


4 " 






.BLKB 


8. 


t 


BYTE 


5 • 






.BLKB 


8. 


> 


BYTE 


6 " 






.BLKB 


8. 


1 


BYTE 


7 " 






.BLKB 


8. 


1 


BYTE 


0 OF 


ALL 


ADDRESSES 


.BLKB 


8. 


i 


BYTE 


I ■■ 






.BLKB 


8. 


s 


BYTE 


2 •■ 




<> t* 


.BLKB 


8. 


• 


BYTE 


3 ' 




> (* 


.BLKB 


8. 


t 


BYTE 


4 " 






.BLKB 


8. 


t 


BYTE 


5 " 






.BLKB 


8. 


t 


BYTE 


6 " 






.BLKB 


8. 


t 


BYTE 


7 •• 




i •> 


OF START ADDRESS OF RECEIVE 


RING 


BLT^ERS 







I 7 



14 



RRNGTB: 



XRNGTB: 

t 

XRGSRT 
RRGSRT 
XRGCUR 
RRGCUR 
XRGNXT 



.WORD RRGOOl 
.UORO RRG002 
.WORD RRG003 
.WORD RRG004 
.UORO RRG005 
.UORD RRG006 
.UORO RRG007 
.WORD RRGOlO 

TABLE OF START ADDRESS OF TRANSMIT RING BUFFERS 



.UORD XRGOOl 

POINTERS TO DESCRIPTOR RING ENTRIES 



.UORD 
.UORD 
.UORD 
.UORD 
.UORO 



XRING 
RRING 
XRING 
RRING 
XRING 



J FIRST ENTRY IN TRANSMIT RING 
J FIRST ENTRY IN RECEIVE RING 
, CURRENT ENTRY IN TRANSMIT RING 
; CURRENT ENTRY IN RECEIVE RING 
I NEXT ENTRY IN TRANSMIT RING 



P4 

XERCISER OIAG MACRO M1200 22 MAR 84 13:12 PAGE 9 6 



SEQ 44 



2200 


024226 


024260 


RRGNXT: 




.UORD RRING 


2201 


024230 


024236 


XRGLST : 




.UORO XRING 


2202 


024232 


024544 


RRGLST : 




.UORO RRINGH 


2203 


024234 


024544 


RRGPRV : 




.UORO RRINGH 


2204 






• 






2206 


024236 




XRING: : 




XRGOO.B.O 


2209 


024236 






RNGFRH 




024236 


000000 




.WORD 


0 




024240 


100000 




.WORD 


100000 




024242 


024574 




.WORD 


XRGOOl 




024244 


000000 




.UORD 


0 




024246 


000000 




.WORD 


0 




024250 


000000 




.WORD 


0 


2210 


024252 




XRINGH: 






2211 


024252 




XRGINV : 






2212 


024252 


000000 




.WORD 


0 


2213 


024254 


000000 




.WORD 


0 


2214 


024256 




RNGSIZ: 






2215 


024256 


000004 




.UORD 


- XRINGH 


2219 


024260 




RRING: : 






2220 




000007 




.REPT 


7 


2221 








.NLIST 




2222 








RNGFRM 


RRGOO.B. -RPKLEN/2 


2223 








.LIST 




2224 








.ENDR 




<>22S 






■ 






2226 


024404 


000000 




.WORD 


0 


2227 


024406 


100000 




.UORD 


100000 


2220 


024410 


035574 




.UORO 


RRGOlO 


2229 


024412 


177340 




.WORD 


-RPKLEN/2 


2230 


024414 


000000 




.WORD 


0 


2231 


024416 


000000 




.WORD 


0 


2232 






f 






2236 






t 






2257 




000007 




.REPT 


7 


2238 








.NLIST 




2239 








RNGFRM RRGOl.B, -RPKLEN/2 


2240 








.LIST 




2241 








.ENOR 




2242 


024544 




RRINGH: 






2243 


024544 


000000 




' .UORD 


0 


2244 


024546 


000000 




.WORD 


0 


2245 


024550 


046574 




.UORO 


RRG020 


2246 


024552 


177340 




.UORO 


-RPKLEN/2 


2247 


024554 


000000 




.UORO 


0 


2246 


024556 


000000 




.UORO 


0 


2249 


024560 




RRGCHN: 






2250 


024560 


000000 




' .UORD 


0 


2251 


024562 


140000 




.UORD 


140000 


2252 


024564 


024260 




.UORD 


RRING 


2253 


024566 


000000 




.UORO 


0 


2254 


024570 


000000 




.UORO 


0 


2255 


024572 


000000 




.UORD 


0 


2256 






■ 






2257 






XRGOOl : 






2256 


024574 






.BLKB XPKLEN 


2259 













I NEXT ENTRY IN RECEIVE RING 
I LAST ENTRY IN TRANSMIT RING 
I LAST ENTRY IN RECEIVE RING 
( PREVIOUS OESCRIPOTR POINTER 



i FLAG UORO 

I SET VALID BIT (OSCR/HIGH ADDRESS URD) 
s SEGMENT BUFFER ADDRESS 
J BUFFER SIZE 
» STATUS UORD 1 
I STATUS UORD 2 



I JUST ENOUGH OF THE NEXT DESCRIPTOR 
i TO INVALIDATE LIST 

I SIZE OF DESCRIPTORS 



t ENTER BUFF ADD. BUF OFFSET. BUF SIZE 



J AGAIN FOR LAST ENTRY (FLAG URO) 

i DESCR/HIGH ADDRESS UORD 

t LOU ADDRESS UORD 

I BUFFER SIZE (TUO'S COMPLEMENT) 

: STATUS URD 1 

; STATUS URO 2 



ENTER BUFF ADD. BUF OFFSET. BUF SIZE 



t AGAIN FOR LAST ENTRY CFLAG URD) 

I LEAVE THIS ONE INVALID 

: LOU ADDRESS UORD 

I BUFFER SIZE (TUO'S COMPLEMENT) 

I STATUS URD 1 

: STATUS URD 2 



I DESCRIPTOR TO CHAIN TO BEGINNING OF RING 

I ADORESa OF START OF DESCRIPTOR RING 

I BYTE COUNT (liNNECESSARY ) 

I STATl 

1 STAT2 



; XMIT RING BUFFER 
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SEQ 45 



2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 



025674 
026774 
030074 
031174 
032274 
033374 
034474 
035574 
056674 
037774 
041074 
042174 
043274 
044374 
045474 
046574 



047674 
047674 
047702 
047710 
047712 
047714 
047715 
047716 
047720 
047722 
047723 
047724 
047725 
047726 
047730 
047731 
047732 
047733 
047734 
047735 
047756 
047744 
047745 
047746 
047747 
047750 

047770 
047770 



047772 
047774 
047776 



001140 
000034 
007 
000 
046507 
000000 
000 
000 
000 
000 
000002 
001 
000 
000 
007 
000 
006 

144 

000 
001 
005 



000074 



000000 
000000 
000000 



RRGOOl 
RRG002 
RRG003 
RRG004 
RRG005 
RRG006 
RRG007 
RRGOlO 
RRGOll 
RRG012 
RRG013 
RRG014 
RRG015 
RRG016 
RRG017 
RRG020 



IDTDAT I 





.BLKB 


RPKLEN J RECEIVE RING BUFFERS 




.BLKB 


RPKLEN 




.BLKB 


nokyi Phi 

RPKLEN 




.BLKB 


RPKLEN 




.BLKB 


RPKLEN 




.oLKd 


HrKLtN 




.BLKB 


RPKLEN 




.dLKo 


RPKLEN 




.BLKB 


RPKLEN 




.BLKB 


RPKLEN 




.BLKB 


RPKLEN 




.BLKB 


RPKLEN 




.BLKB 


RPKLEN 




.BLKB 


RPKLEN 




.BLKB 


RPKLEN 




.BLKB 


RPKLEN 


E ID INFORMATION 


.BLKB 


6 


1 DESTINATION ADDRESS FIELD 


.BLKB 


6 


! SOURCE ADDRESS FIELD 


.WORD 


1140 


i CONSOLE ID TYPE CODE 


.WORD 


28. 


i NUMBER OF VALID DATA BYTES TO FOLLOW 


.BYTE 


7 


I SYSTEM ID FUNCTION CODE 


.BYTE 


0 


1 PAD BYTE 


.WORD 


46507 


J RECEIPT NUMBER ;: N.M. (CHANGED FROM 51115 


.UORO 


0 


1 MOP VERSION TYPE 


.BYTE 


0 


I MOP VERSION LENGTH 


.BYTE 


0 


: MOP VERSION VERSION 


.BYTE 


0 


1 MOP VERSION ECO 


.BYTE 


0 


I MOP VERSION USER ECO 


.UORD 


2 


5 FUNCTION TYPE 


.BYTE 


1 


. FUNCTION LENGTH 


• BYTE 


0 


I MAINTENANCE FUNCTIONS SUPPORTED 1 


.BYTE 


0 


1 MAINTENANCE FUNCTIONS SUPPORTED 2 


.BYTE 


7 


: HARDWARE ADDRESS TYPE 


.BYTE 


0 


: SECOND BYTE OF ADDRESS TYPE 


.BYTE 


6 


; HARDWARE ADDRESS LENGTH 


.BLKB 


6 


: HARDWARE ADDRESS VALUE 


.BYTE 


100. 


t DEVICE TYPE FIELD 


.BYTE 


0 


I DEVICE TYPE FIELD BYTE 2 


.BYTE 


1 


. LENGTH OF OEV TYPE FIELD 


.BYTE 


5 


; DEQNA DEVICE TYPE 


.BLKB 


65.-49. 


s PAD THE REST OF THE PACKET t: N.M. (CHANGED 



IDTSIZ: 



N.M. (USED TO BE .EVEN HERE) 



.WORD 



IDTDAT 



s INFORMATION ABOUT THE CURRENT UNIT AS OBTAINED FROM THE HARDWARE P TABLE 



QNAADO 
QNAVCO 
QNAPRO 



P TABLE INFO STORAGE FOR UNIT 0 

.WORD 0 ; DEVICE ADDRESS FROM PTABLE 

.WORD 0 (VECTOR ADDRESS FROM PTABLE 

.WORD 0 iPRIOHITY FROM PTABLE 



CVNIAAO OEQNA NI EXERCISER OIAG MACRO M1200 
GLOBAL DATA SECTION 
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2317 
2318 
2519 
2320 
2321 
2322 
2525 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2540 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2365 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2571 
2372 
2373 



050000 
050004 



050006 
050010 
050012 



050014 
050020 



050022 
050024 
050026 



050030 
050032 
050034 
050036 
050040 
050042 



050044 
050044 
050144 
050144 
050146 
050150 
050154 
050160 
050162 
050164 
050170 
050174 
050176 
050200 
050204 
050210 
050214 
050220 
050224 
050230 
050234 
050236 
050240 
050242 



000000 
000000 
000000 



000000 
000000 

oooooo 



000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



000076 

oooooo 



oooooo 
oooooo 



oooooo 
oooooo 



oooooo 
oooooo 
oooooo 



NET ADO: 
CSRO: : 



QNAADl 

QNAVCl 

QNAPRl 

s 

I 

NETADli 
CSRl: : 



FRESIZ: 
FREMEM: 
UNIT: : 



S.REC: 

S.NREC 

S.LEN: 

S.COMP 

S.BYTE 

S.XFER 

s 

I 

UCB12: 
CNTRS: 



SEQ 46 



REGISTER CONTENT HOLDING LOCATIONS FOR UNir NUMBER 0 



.BLKU 
.BLKU 



2 
1 



1 HOLDS CONTENTS OF STATION ADDRESS ROM 
» MOLDS CONTENTS OF CSR REGISTER 



PTABLE INFO STORAGE FOR UNIT 1 



.WORD 0 jCSR ADDRESS FROM PTABLE 

.UORD 0 jVECTOR ADDRESS FROM PTABLE 

.WORD 0 : PRIORI TV FROM PTABLE 



CSR LOCATIONS FOR UNIT NUMBER 1 



.BLKU 
.BLKU 



2 
1 



HOLDS CONTENTS OF STATION ADDRESS ROM 
CONTENTS OF CSR REGISTER 



.WORD 0 
.UORD 0 
.UORD 0 



I POINTER TO UORD CONTAINING SIZE OF FREE MEMQRt 

i POINTER TO FREE MEMORY SPACE 

t CURRENT UNIT NUr«ER BEING TESTED 



SUMMARY DATA COUNTERS 



.UORD 
.UORD 
.UORO 
.UORD 
.UORD 
.UORO 



0 
0 
0 
0 
0 
0 



J MESSAGES RECEIVED 

{ MESSAGES NOT RECEIVED 

I LENGTH ERRORS 

i COMPARE ERRORS 

: BYTES COMPARED 

I BYTES TRANSFEREO 



SUMMARY LINK STATISTICS 



.BLKB 100 



THIS AREA BUFFERS THE COUNTERS UMEN PRINTED 
SIZE OF BUFFER FOR COUNTER 



CNTEND: 



.UORO 
.UORD 
.BLKU 
.BLKU 
.UORO 
.UORD 
.BLKU 
.BLKU 
.UORO 
.UORO 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.BLKU 
.UORO 
.UORD 
.UORD 



CNTEND 

0 

2 

2 

0 

0 

2 

2 

0 

0 

2 

2 

2 

2 

2 

2 

2 

0 

0 

0 



- CNTRS 



SIZE OF COUNTER DATA BASE 
SECONDS SINCE LAST ZEROED 
PACKETS RECEIVED 
MULTICAST PACKETS RECEIVED 
RECEIVE ERROR REASON MASK 
NUMBER OF PACKETS RECEIVED UITH ERRS 
: NUMBER OF DATA BYTES RECEIVED 
; MULTICAST DATA BYTES RECEIVED 
t RCV PACKETS LOST - INTERNAL BUFF ERR 
; RCV PACKETS LOST - LOCAL BUFFER ERR 
J PACKETS XMITTEO 
t MULTICAST PACKETS XMITTEO 
; XMIT SUCCESS AFTER 3 OR MORE TRIES 
; XMIT SUCCESS AFTER 2 TRIES 

XMISSIONS THAT MAO TO BE DEFERRED 
BYTES TRANSMITTED 

NUMBER OF MULTICAST BYTES XMITTEO 
ABORTED XMISSIONS. REASON MASK 
COUNT OF ABORTED TRANSMISSIONS 
COUNT OF XMIT CUwLlSON CHECK FAILLWES 



14 



CVNIAAO OEQNA NI EXERCISER OIAG MACRO H1200 
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2374 
2375 
2376 
2377 
ROH ROH 
2378 
2379 
2300 
2361 
2362 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2426 
2429 
24 50 



050242 000000 



050244 
050246 



050250 
050252 
050254 
050256 
050260 
050262 
050264 
050266 
050270 
050272 
050274 
050276 
050300 
050302 
050304 
050306 
050310 
050312 
050314 
050316 
050320 
050322 
050324 
050326 
050330 
050332 
050334 
050336 



050340 
050340 
050342 
050544 



050346 
050346 
050350 
050352 
050360 
050362 



000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
010000 
000000 
000220 
001140 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
001100 
000000 
000000 



000003 
000005 
051115 



000000 
000002 
000000 
000001 
000000 



000000 000000 
000000 000000 
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OEQNA DRIVER AND ASSOCIATED SUBROUTINES DATA 



SEQ 4 7 



CITTST: .UORD 



CITSUM: 


.UORD 


0 


CSRBLF : 


.UORD 


0 


FLAGl: : 


.WORD 


0 


FATFLG: 


: .UORD 


0 


PCEFLG 


: .UORD 


0 


NIRCNT 


: .UORD 


0 


XFLAG: 


.UORD 


0 


DNIFLG. 


: .UORD 


0 


RBFCNT 


: .UORD 


0 


BCOUNT 


: .UORD 


0 


ERRFLG 


: .UORD 


0 


TIMOUT 


: .UORD 


0 


RETRYS 


: .UORD 


0 


RCVERR 


: .UORD 


0 


RCVBUF 


: .UORD 


0 


ROMS I Z 




.UORD 


COUNT: 


.UORD 


0 


PROTOO 


: .UORD 


000220 


PR0T02 


: .UORD 


001140 


SLFTST 


.UORD 


0 


TEMP: : 


.UORD 


0 


TEMPI: 


.UORD 


0 


TEMP2: 


. .UORD 


0 


TEMP3: 


: .UORD 


0 


XFER: : 


.UORD 


0 


CPYCNT 


: :.UORD 


0 


PCCALL 


: : .UORD 


0 


BUFLEN 


: : .UORD 


XPKLEN 


CMPBUF 


: . UOnO 


0 


LAPCNT 


.UORD 


0 



4096. 



! REQUEST ID MESSAGE FORMAT 
REQID: 



.UORD 
.UORD 
.UORD 



3 

IDFUNC 
"MR 



! LOOP DIRECT MESSAGE 
.EVEN 



LOPOIR: 



.UORD 
.UORD 
.UORD 
.UORD 
.UORD 



0 

FORWRD 

0,0.0 

1 

0.0.0 



TO RTRy ERROR 
UITH ERRORS 



I HOLDS STARTING ADDRESS OF CITIZENSHIP TEST AFTER LOADING F 

J HOLDS ADDRESS OF THE ROM CHECKSUM AFTER LOADING 
I BUFFERS THE CSR. BIS AND BIC HAPPEN TO TmIS 
» LOCATION UHICH IS THEN MOVED TO THE CSR. 
I PREVENTS LOSING BITS THAT ARE "WRITE A I TO 
» CLEAR" 

, FLAG TO INDICATE IF CITIZ. TEST MAS RUN. 
t FATAL ERROR FLAG 
I PORT COMMAND ERROR FLAG 
: QNA RECEIVE MESSAGE COUNTER 
; FRAME TRANSMITTED FLAG 
; DONE INTERRUPT FLAG 
{ RECEIVE BUFFERS LOST COUNTER 
i UNEXPLAINED INTERRUPTS COUNTER 
I ERROR FLAG 
; TIME OUT COUNTER 
: COUNTER FOR FRAMES FAILING DUE 
! COUNTS NO. OF BUFFERS RECEIVED 
: COUNTS NO. OF GOOD BUFFERS RECEIVED 
: SIZE OF BOOT/DIAGNOSTIC ROM IN BYTES 
i USED IN BL06UF SUBROUTINE AS COUNTER 
8 PROTOCOL TYPE FOR LOQPBACK MESSAGES 
PROTOCOL TYPE FOR REMOTE CONSOLE 
EXECUTE SELF TEST FLAG 
USED IN XMIT AS TEMPORARY STORAGE 
t USED FOR TEMPORARY STORAGE 
i USED FOR TEMPORARY STORAGE 
i USED FOR TEMPORARY STORAGE 
STORES 'BYTES TRANSFEREO' 
•NO. OF COPIES' COUNTER FOR LOOPING 
STORES PC OF CALLING ROUTINE FOR ERROR REPORTS 
J STORES TRANSMIT BUFFER LENGTH 

: STORES LOCATION OF DATA BUFFER TO BE COMPARED 
J COLINTS HOU MANY LAPS "CURRENT RECEIVE 
; DESCRIPTOR" POINTER IS AHEAD OF THE 
s "NEXT RECEIVE DESCRIPTOR" POINTER 



BYTE COUNT r-3 FOR REQUEST ID) 
FUNCTION CODE FOR REQUEST ID 
RECEIPT NUMBER 



SKIP COUNT 

FUNCTION • FORWARD DATA 
LOCAL NODE ADDRESS 
FUNCTION • REPL1 
LOCAL NODE ADDRESS 



J4 
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2451 










; TRANSMIT ASSIST MESS/ 


24 32 










TASIST: ; 




2433 


050370 










2434 


050370 


000000 






.WORD 


0 


2435 


050372 


000002 






.WORD 


FORURD 


2436 


050374 


000000 


oooooo 


oooooo 


.WORD 


0.0.0 


2437 


050402 


000002 






.UORD 


FORURD 


2438 


050404 


000000 


000000 


oooooo 


.WORD 


0.0.0 


2439 


050412 


0000\.l 






.WORD 


REPLY 


2440 


050414 


000000 


oooooo 


oooooo 


.WORD 


0.0.0 


2441 










• 




2442 










1 RECEIVE ASSIST MESSM 


2443 










• 

RASIST: : 




2444 


050422 










2445 


050422 


000000 






.UORD 


0 


2446 


050424 


000002 






.UORO 


FORURD 


2447 


050426 


000000 


oooooo 


oooooo 


.WORD 


0.0.0 


2448 


050434 


000002 






.WORD 


FORURD 


2449 


050436 


000000 


oooooo 


oooooo 


.WORD 


0.0.0 


2450 


050444 


000001 






.UORD 


REPLY 


2451 


050446 


000000 


oooooo 


oooooo 


.UORO 


0.0.0 


2452 














2453 










I FULL ASSIST 


MESSAGE 


2454 










FASIST:: 




2455 


050454 










2456 


050454 


000000 






.UORD 


0 


2457 


050456 


000002 






.UORD 


FORURD 


2456 


050460 


000000 


oooooo 


oooooo 


.UORD 


0.0.0 


2459 


050466 


000002 






.UORD 


FORURD 


2460 


050470 


000000 


oooooo 


oooooo 


.UORD 


0.0.0 


2461 


050476 


000002 






.UORD 


FORURD 


2462 


050500 


000000 


oooooo 


oooooo 


.UORD 


0.0.0 


2463 


050506 


000001 






.UORD 


REPLY 


2464 


050S10 


000000 


oooooo 


oooooo 


.UORD 


0.0.0 



SEQ 4a 



t SKIP COUNT 

I FUNCTION - FORUARD DATA 
{ TRANSMIT ASSIST ADDRESS 
i FUNCTION • FORUARD DATA 
i LOCAL NODE ADDRESS 
J FUNCTION • REPLY 
I LOCAL NODE ADDRESS 



s SKIP COUNT 

i FUNCTION - FORUARD DATA 
t TRANSMIT ASSIST ADDRESS 
s FUNCTION - FORUARD DATA 
: LOCAL NODE ADDRESS 
; FUNCTION - REPLY 
: LOCAL NODE ADDRESS 



t SKIP COUNT 

t FUNCTION - FORUARD DATA 

: TARGET NODE ADDRESS 

: FUNCTION - FORUARD DATA 

i ASSIST NODE ADDRESS 

: FUNCTION - FORUARD DATA 

: LOCAL NODE ADDRESS 

s FUNCTION - REPLY 

: LOCAL NODE ADDRESS 



CVNIAAO DEQNA NI E.XERCISI 
COMMAND I INF ACTION TREE 
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SEO 49 



2466 
2467 
2468 
2469 
24 70 
2471 
24 72 
2473 
24 74 
24 75 
24 76 
2477 



.SBTTL COMMAND LINE ACTION TREE 
1 SAMPLE CLI TREE NODE (ALWAYS AT LEAST 1 WORD) 
i 

I ! ACTION ! CHAR CODE ! 

I ! MISS DISPLACEMENT ! ONLY IF "MISS" ARGUMENT DEFINED 

i ! NEXT MODE DISPLMNT • ONLY IF "ASCII" ARGUMENT DEFINED 

I ! ASCIZ MATCH STRING ! ONLY IF "ASCII" ARGUMENT DEFINED 

; ! (.EVEN) • 



2478 




t - - • - - 





- - 


2479 




( 






2480 




! FIRST 


KEYWORD 




2461 




• 

CLITRE: 






2482 


050516 






2483 


050516 




CLI 


CLiSPA.O.NlOt 


2484 


050522 


N10$: 


CLI 


<• ?>.HELP.N12$ 


2485 


050526 




CLI 


CLIEXI.O 


2486 


050530 


N12t: 


CLI 


CLISTR,HELP.N14».<'HELP' > 


2487 


050544 




CLI 


CLIEXI.O 


2488 


050546 


N14»: 


CLI 


CLISTR.N0TNUF.N16*.'' NODE' > 


2489 


0S0S62 




CLI 


CLIBR.0.N60$ 


2490 


050566 


N16<: 


CLI 


CLISTR. BUILD, N18).<' BUILD' > 


2491 


050602 




CLI 


CLIEXI.O 


2492 


050604 


N18t: 


CLI 


CLISTR.N0TNUF.N20».<'RUN' > 


2493 


050616 




CLI 


CLIBR.0.N180$ 


2494 


050622 


N20I: 


CLI 


<' S>.N0TNUF.N25t 


2495 


050626 




CLI 


CLISTR.0.N22* . < ' HOW' > 


2496 


050640 




CLI 


CLIBR.O.NlOOt 


2497 


050644 


N22t: 


CLI 


CLISTR.SUMMRY.N23».<'UMMARt' > 


2498 


050662 




CLI 


CLIEXI.O 


2499 


050664 


N23t: 


CLI 


CLISTR.CSAVE,N24*,<'AVE' > 


2500 


050676 




CLI 


CLIEXI.O 


2501 


050700 


N24t: 


CLI 


CLIERR.O 


2502 


050702 




CLI 


CLIEXI.O 


2503 


050704 


N25$: 


CLI 


CLISTR.N0TNUF.N26$.<' CLEAR- > 


2504 


050720 




CLI 


CLIBR.0.N120t 




050724 


N26t: 


CLI 


CLISTR.NOTNUF .N26» . < ' IDENTIFY' > 


2506 


050744 




CLI 


CLI6R.0.N140$ 


2507 


050750 


N28«: 


CLI 


CLISTR.N0TNUF.N29I,*' MESSAGE' > 


2508 


050766 




CLI 


CLIBR.0.N160I 


2509 


050772 


N29f : 


CLI 


CLISTR.CUNSAV.N30».<'UNSAVE' > 


2510 


051010 




CLI 


CLIBR.0.N210t 


2511 


051014 


NS0«: 


CLI 


CLISTR.EXIT.N3l*,<'EXIT' > 


2512 


051030 




CLI 


CLIEXI.O 


2513 


051032 


NSK: 


CLI 


CLISTR.N0TNUF.NS2».<' FUNCTION' > 


2514 


051052 




CLI 


CLIBR.0.N200t 


2515 


051056 


N32$: 


CLI 


CLISTR.RSP0N0.NS3t.< 'RESPOND' > 


2516 


051074 




CLI 


CLIEXI.O 


2517 


051076 


N3S$: 


CLI 


CLIERR.O 


2518 


051100 




CLI 


CLIEXI.O 


2519 




• 




2520 




! SECOND KEYWORD (ADR/TyPE) FOR NODE COMMAND 


2521 










2522 


051102 


N80$: 


CLI 


CLISPA.0,N81* 



tSKIP ANY LEADING SPACES 

:IS THE FIRST NON-SP CHAR. A ? 

IF YES DO "HLP" AND EXIT 
ELSE IS FIRST WORD A "HELP ' 

IF YES 00 "HLP" AND EXIT 
ELSE IS FIRST WORD A "NODE" 

IF YES. BR N80I 
ELSE IS FIRST WORD A "BUILD ' 
IF YES DO "BUILD" AND EXIT 
ELSE IS FIRST WORD A "RUN" 

IF YES. BR N180S 
ELSE IS FIRST CHAR. A "S" 

IF YES IS REST OF WORD "HOW" 

IF YES. BR NlOOt 
ELSE IS REST OF WORD "UMMARy • 
IF YES. DO "SUMM" AND EXIT 
ELSE IS REST OF WORD "AVE" 

IF YES, DO "SAVE" AND EXIT 
ELSE "ILL COMMAND" 
EXIT 

ELSE IS FIRST WORD A "CLEAR ' 

IF YES. BR N120$ 
lELSE IS FIRST WORD "IDENTIFY* 

IF YES. GET AOORS. BR N140S 
ELSE IS FIRST WORD "MESSAGE 

IF YES. BR N160S 
(ELSE IS FIRST WORD "UNSAVE* 
; IF YES. BR TO N210I 
;ELSE IS FIRST WORD EXIT' 
J IF YES EXIT 
(ELSE IS FIRST WORD 
I IF YES. BR N200* 
jELSE IS FIRST WORO 
I IF YES LEAVE 
(OTHERWISE 'ILL CMD' 
» EXIT 



"FUNCTION 
"RESPOND 



tSKIP ANY LEADING SPACES 



L4 
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2525 


051106 


N81$: 


CLI 


CLIBR.CSAVR4.N82I 


jGAVE STRING POINTER LOCATION 


2524 


051112 


N62«: 


CLI 


CLIBR.N00E,N90» 


jPARSE THROUGH ADDRESS .CHECK 


2525 










,FOR TARGET OR ASSIST, DO NODE 


2526 


051116 


N90I: 


CLI 


CLlBIF.0.N32t 


;TAKE ERROR BRANCH IF ERROR EXISTS 


2527 


051122 


N95»: 


CLI 


CLIEXI.O 


jEXiT 


2526 













2529 



2541 
2542 
2543 
2544 

2545 
2546 
2547 
2546 
2549 
2550 
2551 
2552 
2553 
2554 
25S5 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2566 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2576 
2579 



051224 
051230 
051244 
051250 
051254 
051260 
051272 
051276 
051302 
051306 
051312 
051316 
051322 
051340 
051344 
051362 
051366 
051370 



051372 
051376 
051402 
051406 
051412 



051414 
051420 
051424 
051440 
051444 
051460 
051464 
051500 



SECOND KEYWORD FOR SHOU COMMAND 



2530 










2531 051124 


N100$: 


CLI 


CLISPA.0.N101$ 


jSKIP LEADING SPACES 


2532 051130 


NlOll: 


CLI 


CLISTR.CN0DE.N102*.< 


NODES' > tIS NEXT WORD "NODES' 


2533 051144 




CLI 


CLIBR.O.NIIOI 


s IF YES. SET FLAG. BR N110$ 
<'MESSAGE'> >ELSE IS NEXT WORD "MESSAGE" 


2554 051150 


N102t: 


CLI 


CLISrR.CSHMSG.N104$. 


2535 051166 




CLI 


CLIBR.O.NllOt 


s IF YES .SET FLAG. BR NllOS 


2536 051172 


N104I: 


CLI 


CLISTR.CCNTR.N106».< 


'COUNTERS' > :ELSE IS NEXT WORD "COUNTERS' 


2537 051212 




CLI 


CLIBR.O.NIIOI 


: GO TO COUNTERS ROUTINE 


2538 051216 


N106»: 


CLI 


CLI8R.0.N32) 


sELSE ILL COMMAND" 


2539 051222 


NllOt: 


CLI 


CLIEXI.O 


tEXIT 


2540 











SECOND KEYWORD FOR CLEAR COMMAND 



N120$ : 


CLI 


CLISPA.0.N121I 


SKIP LEADING SPACES 


N121I: 


CLI 


CLISTR.0.N130(.<'N0DE' > 


IS NEXT WORD "NODE" 




CLI 


CLISPA.0.N122I 


IF YES SKIP SPACES 


N122$; 


CLI 


<'/>,CSAVR4.N32» i LOOK FOR OELIMETER. ELSE "ILL COM 




CLI 


<' A>,0.N123S 


IS NEXT CMAR. AN "A" 




CLI 


CLISTR.CN0DAL.N124I.<'LL' > 


IF YES. IS WORD "ALL" 




CLI 


CLIBR.0.N135» 


IF YES. SET FLAG. BR N135$ 


N123S: 


CLI 


<'N>.0.N124$ 


, ELSE IS NEXT CHAR. AN 'N' 




CLI 


CLIDEC.0.N32S 


IF YES. STORE NODE LOGICAL NAME 




CLI 


CLIBR.CNDL0G.N135t 


BR TO CLR. NODE LOGICAL ROUTINE 


N124S: 


CLI 


CLIBR.CEXM}R.N126I 


! ELSE. EXTRACT ADDRESS 


N126$: 


CLI 


CLIBR.CNDA0R.N135t 


SET FLAG. BR N135» 


N130I : 


CLI 


CLISTR.CCLMSG.N132*.<'MESSAGE' > 


iELSE IS NEXT WORD "MESSAGE 




CLI 


CLIBR.0.N13S» 


( IF YES. SET FLAG. BR N135$ 


N132t: 


CLI 


CLISTR.CCLSUM.NIS4$ .<• SUMMARY ' > 


iELSE IS NEXT WORD "SUMMARY' 




CLI 


CLIBR.0.N135* 


IF YES. CLEAR TABLE AND EXIT 


N134$: 


CLI 


CLIERR.O 


[ELSE. "ILL COMMAND". 


N13S$: 


CLI 


CLIEXI.O 


[EXIT 



: ADDRESS FOR IDENTIFY COMMAND 



N140S: CLI 
N141«: CLI 
N142I : CLI 

CH 

N143S: CLI 



CLISPA.0.N141S 

CLIBR.CSAVR4.N142t 

CLIALN.0.NS2< 

CLIBR.CEXADR.N143( 

CLIEXI.IDENT 



:SKIP LEADING SPACES 

sSAVE POINTER TO FIRST CHAR. OF ADORE Ss 
: CHECK THAT ADDRESS HAS LEGAL ChAR.S 
:GET ADDRESS 
;D0 'IDENTIFY". EXIT 



REMAINING COMMAND LINE FOR MESSAGE COMMAND 



N160I: 
N161$: 



N162$; 



CLI CLISPA,0.N161I 

CLI <'/>,0.N178» 

CLI CHSTR.0.N170».<'TYPE'» 

CLI <'->,0.N32t 

CLI CL ISTR. C ALPHA. N162$,<' ALPHA' 

CLI CLIBR.0.N166$ 

CLI CLISTR.C0NES.N163$. <' ONES' > 

CLI CLIBR.0.N168$ 



iSKiP LEADING SPACES 
I IF CHAR. "/". CONT. 
;IS NEXT WORD "TYPE" 
J IF YES. FOLLOWED BY ' * 
IF "ALPHA". SET FLAG 
CONTINUE AT N168« 
IF "ONES". SET FLAG 
t CONTINUE AT Nle8» 



ELSE BR Nl'8» 



ER DIAG MACRO M1200 22-MAR 84 13:12 



M4 

PAGE 10 2 



SEQ 51 



:?5ao 

2561 
25a^ 
2563 
2564 
2565 
2566 
2567 
2566 
2569 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2596 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2606 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2616 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2626 



051504 

051520 
051524 
051540 
051544 
051560 
051564 
051600 
051604 
051610 
051614 
051620 
051634 
051640 
051644 
051650 
051666 
051672 
051676 
051702 



051706 
051712 
051732 
051756 
051750 
051754 
051772 
051776 
052014 
052020 
052034 
052040 
052044 



052046 
052052 
052056 



052060 
052064 
052070 
052072 



N16St : 


CLI 


CLISTR.C2ER0S,N164$.<' ZEROS' > 


, IF "ZEROS". SET TLAG 
I CONTINUE AT N166> 




CLI 


CLIBR.0.N166» 


N164$: 


CLI 


CLISTR.C1ALT.N165$.<' lALT' > 


, ir "lALT", SET FLAG 
i CONTINUE AT N166* 




CLI 


CLIBR,0,N166I 


N165I : 


CLI 


CLISTR,C0ALT.N166$,<'0ALT' > 


; IF "OALT", SET FLAG 
i CONTINUE AT N166I 




CLI 


CLIBR.0.N166t 


N166t: 


CLI 


CLISTR,CCCITT,N167$,<'CCITT' > 


I IF "CCITT". SET FLAG 
1 CONTINUE AT N166* 




CLI 


CLIBR.0,N166t 


Nl67t: 


CLI 


< • ">.CSAVR4,N32» 


J IF "OPERATOR", SET FLAG 
t AND INPUT SPECIFIED STRING 




CLI 


CLIBR , COPRSL . N168 » 


N166(: 


CLI 


CLIBR.CTYPE.N160* 


t DO "TYPE". CHECK FOR HORE INPUT 


N170< : 


CLI 


CLISTR,0,N175».<'SIZE' > 


J ELSE IS WORD "SIZE" 




CLI 


<• ■>,0.N32» 


; IF YES. FOLLOWED BY "-"? 




CLI 


CLIDEC . CSIZE . N32 > 


i STORE NUnBCR IN nfSIZE 




CLI 


CLIBR. O.N160$ 


8 CHECK FOR HORE INFO 
sELSE IS WORD "COPIES" 


N175»: 


CLI 


CLISTR,0.N32I.<' COPIES' > 




CLI 


<' ->.0.N32» 


I IF YES. FOLLOWED BY "•"? 




CLI 


CLIDEC. CCPYS.N32* 


1 STORE NUMBER IN HICPyS 




CLI 


CLIBR. 0,N160I 


5 CHECK FOR HORE INFO 
{ELSE "ILL COMMAND' 


N176$: 


CLI 


CLIBR. 0.N32I 



SECOND KEYWORD FOR RUN COMMAND 



CLISPA.0.N161I 

CLISTR . CLUPPR . N182$ . < ' LOOPPAIR' 
CLIBR.0.N165$ 

CLISTR. CRNALL.N183$.<' ALL' » 
CLIBR. 0.N165I 

CLISTR. COIR. N164$.<' DIRECT' > 
CLIBR. O.N165$ 

CLISTR. CPATRN.N32«.<' PATTERN' > 

CLIBR.C0EFLT,N186I 

CLISTR. O.N52$,<' /PASS' > 

<• ->.0.N32$ 

CLIDEC.0.N32I 

CLIEXI.CRUN 



REMAINING COMMAND LINE F, R FUNCTION COMMAND 



N160t: 


CLI 


N161I: 


CLI 




CLI 


N182t : 


CLI 




CLI 


N183< : 


CLI 




CLI 


N184$: 


CLI 


NiaSf : 


CLI 


N186t: 


CLI 




CLI 




CLI 


N190$: 


CLI 


i REMAINING 


N200t: 


CLI 


N201I: 


CLI 




CLI 


1 REMAINING 


N210t: 


CLI 


N212»: 


CLI 




CLI 


N215): 


CLI 



SKIP LEADING SPACES 

:IS NEXT WORD "LOOPPAIR 

IF YES. SET "LOOPPAIR" FLAG 
ELSE IS NEXT WORD "ALL" 

IF YES. SET "ALL" FLAG 
ELSE IS NEXT WORD "DIRECT" 

IF YES. SET "DIRECT" FLAG 
ELSE IS NEXT WORD "PATTERN- 
SEE IF DEFAULT OF 1 PASS 
PARSE THROUGH SWITCH 
PARSE THROUGH "•" 
GET PASS COUNT 
RUN TEST AND EXIT 



CLISPA,0.N201» 

CLI0CT,CFUNCT,N32'* 

CLIEXI.O 



REMAINING COMMAND LINE FOR UNSAVE COMMAND 



CLISPA,0.N212» 
*• />.0.N215$ 
CLIEXI.CUNSVF 
CLIEXI.O 



* SKIP SPACES 

: GET OCTAL NUMBER AND DO FUNCT 
! EXIT 



jSKIP SPACES 

; PARSE THROUGH ' /' 

:SAVE POINTER TO FILE NAHE 



N4 
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SFQ 52 



2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
263S 



2659 
2640 
2641 
2642 
264 S 
2644 
2645 
2646 
.7647 
2646 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2656 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2666 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2676 
2679 
2660 
2661 



.NLIST BIN 



SBTTL GLOBAL TEXT SECTION 



052074 
052074 
052074 
052076 
052100 
052102 
052104 
052113 
052144 
052175 
052222 
052242 
052S10 
052S45 
052411 
052473 
052565 
052651 
052746 
053022 
053076 
053144 
053154 
053167 
053176 
053274 
053346 
053415 
053422 
053432 
053511 
053575 
053664 
053756 
054044 
054132 
054220 
054265 
054324 
054333 
054345 
054415 
054530 
054643 
054703 
054741 
055002 



; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
s MESSAGES. AND ASCII INFORMATION THAT ARE USED IN 
; MORE THAN ONE TEST, 
i 

t • • 



ERRTYP 
ERRNBR 
ERRMSG 
ERRBLK 
CLIIPM 
CLIERM 
CLINUT 
CLINBG 
CLIBRX 
L5060: 
LORESP 
RECERR 
RTRYER 
BLOMSG 
ILAOHS 
iLAOni 
CAORER 
CADERR 
NULSTR 
NOOAOR 
LOGNAM 
NOOTYP 
NTBHOR 
TABFUL 
TABEMT 
NOO: 
SUMM: 
CLRMSG 
CPYLMT 
SIZLMT 
NOCMPR 
UNBONO 
AORDEL 
LGGOEL 
TABCLR 
UNSMSG 
SAVED: 
RESTOR 
nSGPRM 
MSGl: 
MSGll: 
MSG12: 
MSG2 
MSGS 
MSG4 



LtERRTBL; 



055046 HOMSGl ; 



ERRT8L 

.WORD 0 
.WORD 0 
.UORO 0 
.WORD 0 

.ASCI2 <12><15>/NIE>/ jNIE PROMPT 

.ASCIZ /MMA7ILL CMD-6A0 SYNTAX?/ 

.ASCIZ /*N<A?INCOMPLETE COMMAND?/ 

.ASCIZ /«MA?NUMBER TOO BIG?/ 

.ASCIZ /«MA?BAD RADIX?/ 

.ASCIZ <CR><LF>\IS YOUR WALL OUTLET POUER 60 HERTZ?\ 

.ASCIZ /WMANOOE «T«A HAS RESPONDED./ 

.ASCIZ /MWAPACKET RECEIVED UITH QNA ERROR./ 

.ASCIZ /MMATRANSMISSION ABORTED -- EXCESSIVE COLLISIONS./ 

.ASCIZ /iNM}2itA NODE ADDRESSES ADDED. ELAPSED TIME: «D2«A MINUTE./ 

•ASCII /«N*ACANNOT USE BROADCAST ADDRESS (FF-FF-FF-FF-FF-FF)/ 

.ASCIZ /«MAFOR LOOP TESTING. ADDRESS WAS NOT ADDED TO NODE TABLE. #N/ 

.ASCIZ /^APLEASE ENTER TWELVE HEXADECIMAL DIGITS./ 

.ASCIZ /«N«ATUELVE HEX -DIGITS REQUIRED FOR ADDRESS./ 

.ASCIZ /MMAA ZERO LENGTH STRING WAS ENTERED./ 

.ASCIZ /««fS2tfT/ 

.ASCIZ /KS14tfANrtD2/ 

.ASCIZ /«S14«T/ 

.ASCIZ NMMANOOE PHYSICAL ADDRESS NODE LOGICAL NAME TYPECA/T)\ 

.ASCIZ /«N«ATHE *T«A TABLE IS FILLED TO CAPACITY!/ 

.ASCIZ /SWATHE «T«A TABLE IS CURRENTLY EMPTY!/ 

.ASCIZ /NODE/ 

.ASCIZ /SUMMARY/ 

.ASCIZ /MMATHE MESSAGE PARAMETERS HAVE BEEN RESET TO./ 

.ASCIZ /MMATHE NUMBER OF COPIES MUST BE BETUEEN 1 AND 255./ 

.ASCIZ /MMATHE MESSAGE SIZE MUST BE BETUEEN 32 AND 512 BYTES./ 

.ASCIZ /MMATHE ADDRESS MARKED FOR DELETION MAS NOT IN THE TABLE./ 

.ASCIZ /«MAAN UNBOUNDED "OPERATOR INPUT" STRING WAS ENTERED./ 

.ASCIZ /«NtfATHE ADDRESS HAS BEEN DELETED FROM THE NODE TABLE./ 

.ASCIZ /«Ntf ANODE N«D1«A HAS BEEN DELETED FROM THE NODE TABLE./ 

.ASCIZ /^NtfATHE «T«A TABLE HAS BEEN CLEARED./ 

.ASCIZ /KNKATHE NODE TABLE HAS BEEN «T/ 

.ASCIZ /SAVED./ 

.ASCIZ /RESTORED./ 

.ASCIZ /MMATHE CURRENT MESSAGE PARAMETERS ARE:/ 

.ASCIZ /lINKATME COLLECTION OF ALL NODE ADDRESSES COULD TAKE AS LONG AS 40 MINUTES./ 

.ASCIZ /MMAHOUEVER. IF NO NEW NODES ARE ADDED TO THE TABLE FOR A 10 MINUTE PERIOD^ 

.ASCIZ /MMATHE COLLECTION WILL STOP.«N/ 

.ASCIZ /«MAYOU ENTERED KT«A NODE: «T/ 

.ASCIZ /«*i*ATHE SPECIFIED ADDRESS IS: *T/ 

. ASCIZ /*N«AT yPE -^T^A .SIZE -«D4*A .COPIES •*Dl^ 

.EVEN 

.ASCIZ /•N^A ETHERNET DEFAULT ADDRESS (HEX): «T/ 
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SEQ SS 



^682 
268S 
2«>84 
2685 
2686 
2687 
2688 
2689 
26<»0 
2691 
2692 
2695 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2705 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2725 
2724 
2725 
2726 
2727 
2728 
2729 
2750 
2751 
2752 
2755 
2754 
2755 
2756 
2757 
2758 



055120 
055221 
055514 
055565 
055456 
055556 
055651 
055762 
056052 
056141 
056252 
056550 
056455 
056542 
056641 
056740 
057C45 
057132 
057255 
057505 
057410 
057466 
057551 
057652 
057752 
060102 
060166 
060272 
060574 
060515 
060565 



060672 
060715 
060755 
060755 
060770 
061025 
061046 
061112 
061157 
061220 
061271 
061515 
061526 
061557 
061555 
061567 
061407 
061426 
061446 
061462 
061506 



HELPl 

HELP2 

HELP5 

HELP4 

MELP5 

HELP6 

HELP 7 

HELP8 

MELP9 

MELPIO 

MELPll 

HLP115 

HELP 12 

HELP15 

HELP14 

MELP15 

HELP16 

HELP 17 

HELP18 

HELP 19 

MELP20 

HELP21 

HELP22 

HELP25 

MELP24 

MELP25 

HELP26 

MELP27 

HELP28 

HELP29 

HELP30 

t 
i 

PASABT 

TSTMSl 

TSTMS2 

TSTMS5 

TSTMS4 

OK: 

OKRE: 

OKTR: 

OKFO: 

MESPAT 

HESPAl 

ALLNOO 

LUPAIR 

DIRECT 

rULAST 

TRAST: 

RECAST 

PATTRN 

NORESP 

RETRT: 

LENGTH 



.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 



\«N«AC0MHANO SUHTIARY TOR THE NETWORK INTERCONNECT EXERCISER (NIE)v 
\<N«A(IT IS ONLY NECESSARY TO TYPE THE LETTERS IN BRACKETS)\ 



TYPES THIS HELP TEXT.N 
RETURN TO THE SUPERVISOR. \ 
PRINTS INFORMATION IN CURRENT NODE IABLE.n 
PRINTS THE SELECTED MESSAGE TYPE. SIZE AND COPIES. 
PRINTS THE LOU LEVEL COUNTERS OF THE HOST NODE.v 
RUNS THE LOOPPAIR TEST.\ 



\«N2«A[HlELP OR 
\«N2«A[E1XIT 
\«N2«A[SH10U [NIOOES 
\«N2«A(SH]0W (MIESSAGE 
\«N2«A[SH10W (ClOUNTERS 
\«N2«A[R1UN (LIOOPPAIR/PASS-NN 

\«N2«A[R]UN [AlLL/PASS-NN - RUNS THE NOOE-TO-NODE TEST.V 
\«42«A[R]UN tDHRECT/PASS't** - RUNS THE LOOP DIRECT TEST.V 
\«N2«A[R1UN [PIATTERN/PASS-NN - RUNS THE MESSAGE PATTERN TEST.\ 
\«N2«A(R1UN [R]ESPONOER - RUNS LOOP -SERVER/CONSOLE -ID RESPONDER TEST.s 
\<N2«AfMlESSAGE/rTlYPE-A/ISlIZE-N/[C10PIES-M - ALLOWS THE OPERATOR T0\ 
\«N«AM00IFY THE DEFAULT MESSAGE TYPE, SIZE AND COPY PARAMETERS. \ 
\«N2«A(N]0DE ADR/TYPE • ENTERS A PHYSICAL ADDRESS INTO THE NODES 
\«N«ATAeLE. THE TYPE CAN BE EITHER [TIARGET CDEFAULT) OR [AlSSIST.v 
\«N2«A[SU]MMARY - PRINTS A SUMMARY OF THE TEST RESULTS. \ 
\«N2«A(B1UILD - BUILDS A TABLE OF REMOTE NODE PHYSICAL ADDRESSES Br\ 
\«Ni«ALISTENING TO ID MESSAGES ON THE NI.\ 

\«N2«A[C]LEAR [NlOOE/AOR - REMOVES THE NODE SPECIFIED BY EITHER ADR\ 
\«N«AOR NODE LOGICAL NAME FROM THE NODE TABLE. \ 
\«42«A(C1LEAR (NlODE/fALlL - CLEARS THE NODE TABLE. \ 
\«N2«A(C1LEAR (MIESSAGE - SETS ALL MESSAGE PARAMETERS TO DEFAULT. \ 
\«N2«A(C1LEAR (SlUMMARY • CLEARS THE TABLE OF SUMMARY TEST DATA.s 

\«N2«A[ I IDENTIFY ADR - USES THE REQUEST ID FUNCTION TO IDENTIFY A REMOTE NODE ON THE NI.\ 

\«N2«A(SA]VE - SAVES THE CONTENTS OF THE NODE TABLE. \ 

\«N2«A(U]NSAVE - REPLACES THE CURRENT NODE TABLE WITH THE SAVED ONE.v 

\«Ni«S8«AN0TES: 1) AliR IS THE PHYSICAL ADDRESS OF A NODE ON THE NI.\ 

\«N«S8«A 2) PASS COUNT IS A DECIMAL NUMBER BETWEEN 1 AND 65554. A DEFAULTS 

\««(S6<A VALUE OF 1 IS ASSUMED. \ 

\«N«S0«A SPECIFYING -1 CAUSES THE TEST TO BE RUN INOEFINATELf . \ 



TEST MESSAGES AND ARGUMENTS 

.ASCIZ /«N«A PASS ABORTED!/ 

.ASCIZ /«Ni«T«A TEST - / 

.ASCIZ /««tT«A NODE: «T/ 

.ASCIZ /«T«A ERROR/ 

.ASCIZ /«NrtT«A NODE: «T«T«A NODE: «T/ 

.ASCIZ /«A ■ RESPONSE OK/ 

.ASCIZ /«N«A - RECEIVE ASSIST - RESPONSE OK/ 

.ASCIZ /«NrtA - TRANSMIT ASSIST - RESPONSE OK/ 

.ASCIZ /*N*A - FULL ASSIST RESPONSE OK/ 

.ASCIZ /««tAERROR OCCUREO WITH «T«A MESSAGE TYPE/ 

.ASCIZ /«A DATA PATTERN: «T/ 

.ASCIZ /ALL NODE/ 

.ASCIZ /LOOPPAIR/ 

.ASCIZ /LOOP DIRECT/ 

.ASCIZ /FULL ASSIST/ 

.ASCIZ /TRANSMIT ASSIST/ 

.ASCIZ /RECEIVE ASSIST/ 

.ASCIZ /MESSAGE PATTERN/ 

.ASCIZ /NO RESPONSE/ 

.ASCIZ /EXCESSIVE COLLISION/ 

.ASCIZ /LENGTH/ 



C5 
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SEQ 54 



^.'59 
2740 
2741 
2742 
2745 
2744 
2745 
2746 
2747 
274S 
2749 
2750 
2751 
2752 
2755 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2765 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2775 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2785 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2795 
2794 
2795 



061515 COMPAR: 



061556 
061544 
061551 
061557 
061564 
061571 
061577 
061610 
061615 
061625 
061655 
061640 
061644 
061654 
061661 
061667 
061702 
061710 
061721 
061752 
061745 
061747 
061757 

061766 



062047 
062127 
062176 
062252 
062277 
062554 
062424 
062465 
062555 
062606 
062657 
062716 
062766 
06S0S4 
065101 
065135 
063177 
063245 
065520 
063565 



.ASCIZ /DATA COMPARISON/ 
.EVEN 



MSGTYO 


.ASCIZ 


/ALPHA/ 


jMESSAGE TYPES 


MSGTYl 


.ASCIZ 


/ONES/ 




MSGTY2 


.ASCIZ 


/ZEROS/ 




MSGTY5 


.ASCIZ 


/lALT/ 




MSGTY4 


.ASCIZ 


/OALT/ 




MSGTY5 


.ASCIZ 


/CCITT/ 




MSGTY6 


.ASCIZ 


/□PER SEL/ 




CMOTYl 


.ASCIZ 


/EXIT/ 


1 COMMAND TYPES 


CM0TY2 


.ASCIZ 


/SUMMARY/ 




CM0TY5 


.ASCIZ 


/BUILD/ 




CMDTY4 


.ASCIZ 


/SHOW/ 




CM0TY5 


.ASCIZ 


/RUN/ 




CM0TY6 


.ASCIZ 


/MESSAGE/ 




CK)TY7 


.ASCIZ 


/NODE/ 




CM0TY8 


.ASCIZ 


/CLEAR/ 




CM0TY9 


.ASCIZ 


/REQUEST 10/ 




ARGTYl 


. .ASCIZ 


/NODES/ 


•ARGUMENT TYPES 


ARGTY2 


: .ASCIZ 


/MESSAGES/ 




ARGTY5 


: .ASCIZ 


/COUNTERS/ 




ARGTY4 


: .ASCIZ 


/LOOPPAIR/ 




ARGTY5 


: .ASCIZ 


/ALL/ 




ARGTY6 


: .ASCIZ 


/ ASSIST/ 




ARGTY7 


: .ASCIZ 


/TARGET/ 






.EVEN 




- PROGRAM WILL HANG ON "TIMEOUT"!!/ 


NOCLK: 


•ASCIZ 


/^NrtASAD CLOCK 



s 
I 
I 

CNTROO: 
CNTROl : 
CNTR02: 
CNTR05: 
CNTR04: 
CNTR05: 
CNTR06: 
CNTR07: 
CNTR08: 
CNTR09: 
CNTRIO: 
CNTRll: 
CNTR12: 
CNTR15: 
CNTR14: 
CNTR15; 
CNTR16: 
CNTR17: 
CNTR18: 
CNTR19: 

i 
i 



QNA COUNTER IfTORMATION MESSAGES 



.ASCIZ /««(S5«AC0NTENTS OF NODE «T«A INTERNAL COUNTERS 

.ASCIZ /«N2«ASEC0NDS SINCE LAST ZEROED :«S15«ZS/ 

.ASCIZ /*N*APACKETS RECEIVED:«S19<T/ 

.ASCIZ /MMAMULTICAST PACKETS RECEIVE0:«S9«T/ 

.ASCIZ /«N#APACKETS REC'D WITH ERROR - BITMAP :#S8«e4/ 

.ASCIZ /tfNKAPACKETS RECEIVED WITH ERROR :«S13«Z5/ 

.ASCIZ /^NUAOATA BYTES RECEIVED :«S16«T/ 

.ASCIZ /«N#AMULTICAST DATA BYTES RECEIVED:#S6«T/ 

.ASCIZ /«N«ARECEIVED PACKETS LOST -INTERNAL z«SlO«Z5/ 

.ASCIZ /MWARECEIVED PACKETS LOST -LOCAL :«S12«Z5/ 

.ASCIZ /tfNrtAPACKETS TRANSHITTED:«S16«T/ 

.ASCIZ /«M«AMULTICAST PACKETS TRANSMIT TED :«S6«T/ 

.ASCIZ /tfNrtAPACKETS TRANSMITTED 5* TRYS:«S8«T/ 

.ASCIZ /MMAPACKETS TRANSMITTED 2 TRYS:«S9«T/ 

.ASCIZ /tfNrtAPACKETS 0EFFERE0:«S19«T/ 

.ASCIZ /MMADATA BYTES TRANSMIT TED :«S13«T/ 

.ASCIZ /MMAMULTICAST BYTES TRANSMIT TED :«S8«T/ 

.ASCIZ /tfNrtATRANSMIT PACKETS ABORTED -BITMAP:«S8«66/ 

.ASCIZ /tfNrtATRANSMIT PACKETS ABORTED :«S16«Z5/ 

.ASCIZ /<N*AXMIT COLLISION CHECK FAILURE :«S12«Z5/ 



ERROR MESSAGES FOR DEQNA DRIVER 



SCO K 



.?/96 
27<*7 
2796 

^800 
^001 
2B02 
2605 
2604 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2815 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2640 
2641 
2642 
2643 
2844 
2645 
2646 
2647 
2848 
2849 
2850 
2851 
2952 



063436 
063467 
063527 
063563 
063605 
063670 
063735 
065774 
064050 
064103 
064157 
064245 
064322 
064367 
064424 
064451 
064515 
064561 
064662 
064764 
065062 
065141 
065237 
065303 
065366 
065446 
065544 
065600 
065653 
065721 
065773 
066063 
066116 
066152 
066211 
066267 
066344 
066412 
066451 
066526 
066615 
066705 
066777 
067071 
067121 
067204 



067266 
067325 
067360 
067420 
067441 
067467 
067515 



EMSGOl 
EHSG02 
EHSG05 
EMSG04 
EMSG08 
EHSGIO 
EMSGll 
EMSC14 
EH5G22 
EnSG24 
EHSG25 
eMSG32 
EMSG34 
EnSG35 
EnSG36 
EMSG37 
EMSG38 
EnSG40 
EnSG41 
EnSG42 
EMSG43 
ENSG44 
ENSG45 
EnSG46 
EMSG47 
EriSG4e 
EMSG50 
EMSG51 
EHSG52 
e«SG53 
EHSG54 
EriSG55 
EnSG56 
EMSG57 
EHSG58 
EriSG59 
EMSG60 
EHSG61 
EnSG62 
EnSG63 
EriSG64 
EnSG65 
EHSG66 
EHSG67 
EHSG68 
EMSG69 

!even 

SIMSGl 
SIHSG2 
S1MSG5 
SinSG4 
SIHSG5 
SiriSG6 
SIMSG? 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



TYPE 
TYPE 
TYPE 



/DEQNA PORT COMMAND ERROR/ i SmOULO NEVER GET THIS ERROP 

/DEQNA NON EXISTENT MEMORY ERROR/ 
/UNEXPLAINED DEQNA INTERRUPT/ 
/UNKNOWN QNA ERROR/ 

/TIMEOUT '--DEQNA HARDWARE FAILED TO TRANSMIT PACKET/ 
/DEQNA STILL OWNS TRANSMIT DESCRIPTOR/ 
/RECEIVE RING BOOKKEEPING ERROR/ 
/MESSAGE SIZE TOO BIG FOR MAX. PACKET LENGTH/ 
/«N«ANO RESPONSE FROM NODE./ 

/TRANSMIT ERROR. ALL PACKETS NOT TRANSMITTED/ 
/ERROR WHILE WRITING MULTICAST ADDRESS LIST INTO DEQNA/ 
\«N«AILLEGAL TARGET/ASSIST PAIR IN NODE TABLES 
<15><12>/TIMeOUT WAITING FOR LOOPBACK REPLY/ 
/tfAFAILING NODE ADDRESS: «T«N/ 
/tfADATA PATTERN: tfT«N/ 
/«AFAILING TARGET NODE ADDRESS: «TtfN/ 
/tfAFAILING ASSIST NODE ADDRESS: «T«N/ 
< 15 >< 12 > /TIMEOUT WAITING FOR REPLY - LOOP MESSAGE 
< 15 X 12 > /TIMEOUT WAITING FOR REPLY - LOOP MESSAGE 
< 15 >< 12 > /TIMEOUT WAITING FOR REPLY - LOOP MESSAGE 
SNON-EXISTENT MEMORY ERROR DURING ADDRESS SETUP\ 
NSETUP ADDRESS MISMATCH ERROR - DEQNA INTERNAL LOOPBACK FAILEDN 
\AOORESS SETUP-PACKET TRANSMIT ERRORS 
\ADORESS SETUP-PACKET TRANSMITTED. BUT NOT RECEIVED\ 
\PACKET RECEIVED WAS NOT AN ADDRESS SETUP -PACKETS 
SAOORESS SETUP-PACKET TRANSMIT AND RECEIVE BYTE COUNT MISMATCHS 
SCASE OFFSET RANGE UNDERFLOWS 
SCASE OFFSET RANGE OVERFLOWS 

SLOOP-SERVER FUNCTION CODE IS NEITHER FORWARD OR REPLYS 

SRECEIVE DATA TOO LARGE FOR RECEIVE BUFFERS 

SMESSAGE ADDRESS WAS GOOD. BUT RUNT PACKET WAS RECEIVED. s 

SRECEIVER OVERFLOW OCCURREDS 

SRECEIVER CRC ERROR OCCURREDS 

SRECEIVER FRAMING ERROR OCURREDS 

SRECEIVEO PACKET WITH ERRORS. THROWING IT AWA>\ 

SUNEXPECTED LOOP-SERVER REPLY PACKET RECEIVEDS 

SRECEIVEO PACKET OF LESS THAN 10 ByTESS 

SUNKNOWN RECEIVE ERROR OCCURREDS 

SERROR OCCURRED WHILE TRANSMITTING CONSOLE IDS 

SNEXT RCV DESCRIPTOR POINTER PASSED CURRENT RCV POINTERS 

SOPERATOR ERROR - CANNOT USE THE DEVICE'S OWN NI ADDRESSS 

STIMEOUT WAITING FOR BOOT/DIAGNOSTIC CODE TO LOAD FROM QNAs 

SLOADED BOOT/DIAGNOSTIC ROM CODE AND ROM CHEKCSUM MISMATChn 

SCITIZENSHIP TEST FAILEDS 

SQNA HARDWARE RECEIVED A PACKET NOT ADDRESSED TO IT\ 
SAN ASSIST NODE HAS BEEN CHANGED TO A TARGET NODES 



#T/ 



RECEIVE ASSIST/ 
TRANSMIT ASSIST/ 
FULL ASSIST/ 



/«N«A NODE DEFAULT ADDRESS: 
/«N«S8tfARECEIPT NUMBER: «06/ 
/tfNtfA MAINTENANCE VERSION: «Z2/ 
/«NtfS19«AEC0: tfZ2/ 
/*N«S14«AUSER ECO: •Z2/ 
/tfN«S14«AFUNCTI0N: tf02/ 
/I»N«S16«ADEVICE: #02/ 



E5 
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SEQ 56 



2653 






2654 


!even 




2655 067542 


PCnSG:: .ASCIZ 


2856 


.EVEN 




2857 067602 


CHPERl 


.ASCIZ 


2858 067677 


CHPER2 


.ASCIZ 


2859 067745 


LGERnS 


.ASCIZ 


2660 070043 


SUMHSl 


.ASCIZ 


2861 070064 


SUMHS2 


.ASCIZ 


2862 070150 


SU»t1S3 


.ASCIZ 


2863 070177 


SUnNS4 


.ASCIZ 


2864 070262 


SUMHS5 


.ASCIZ 


2865 070300 


SU»V1S6 


. ASCIZ 


2866 


.EVEN 




2867 






2668 







/HHMPC or CALLING ROUTINE - «06/ 

/tfN«ABYTE NUMBER :«04«A(0) EXPECTE0-«06«A(0) RECEIVED-«06«A(0)/ 
/«N«ATOTAL MISMATCHES IN MESSAGE - 404/ 

/«N«ALENGTH ERROR BYTES EXPECTED: «06«A BYTES RECEIVED: tf06/ 
/«N2KS8«AN0DE: «T/ 

/«WARX NOT COMPLETE RX COMPLETE LENGTH ERRORS/ 
/«WS6«Z5«S12«Z5tfS10«Z5/ 

/W«tACOMPARE ERRORS BYTES COMPARED BYTES XFER/ 

/«NtfS6«Z5«S6«T/ 

/tfS5«T/ 



.LIST BIN 



PAGE 12 



SEQ 57 



2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 



.SBTTL GLOBAL ERROR REPORT SECTION 



I ♦♦ 



THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 
USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 
(BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 



2879 070506 






BGNMSG 


ERRl 


070506 










2880 070506 


012737 


000020 003734 




MOV 


2881 070514 








PRINTX 


070514 


015746 


050350 






070520 


012746 


067542 






070524 


012746 


000002 






070550 


010600 








070552 


104415 








070554 


062706 


000006 






2882 070540 








DOCLN 


070540 


104444 








2885 070542 






ENDMSG 




070542 










070342 


104425 








2884 070344 






BGNMSG 


ERR2 


070344 










2885 070344 


010146 






MOV 


2886 070546 


015701 


002572 




MOV 


2887 070552 


006501 






ASL 


2888 070554 


062701 


005324 




ADD 


2689 070560 








PRINTX 


070560 


012746 


002324 






070564 


012746 


064367 






070570 


012746 


000002 






070574 


010600 








070576 


104415 








070400 


062706 


000006 






2890 070404 








PRINTX 


070404 


011146 








070406 


012746 


064424 






070412 


012746 


000002 






070416 


010600 








070420 


104415 








070422 


062706 


000006 






2891 070426 


012601 






MOV 


2892 070450 






ENDMSG 


070450 








070450 


104425 








2895 










2894 070452 






BGNMSG 


ERR5 


070452 










2895 070452 








PRINTX 


070452 


012746 


002524 






070456 


012746 


064451 






070442 


012746 


000002 






070446 


010600 








070450 


104415 









«CEXIT.CFLAG 



ERRl: 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

TRAP 



Rl.-(SP) 

PITYPE.Rl 

Rl 

«MSGTAB.R1 



L 10002: 



ERR2: 



TRAP 



L 10005: 



ERR3: : 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



TRAP 



MOV 
MOV 
MOV 
MOV 
TRAP 



PCCALL.-(SP) 

*PCMSG. CSP) 

•2.-(SP) 

SP.RO 

CIPNTX 

«6.SP 

c*dcln 



C»MSG 



•STRBUF. (SP) 
♦EMSG35. (SP) 
•2. (SP) 
SP.RO 
C»PNTX 
»6.SP 

(Rl). (SP) 

♦EMSG56. (SP) 

•2.-(SP) 

SP.RO 

C«PNTX 

»6.SP 



CJMSG 



^STRBOF. (SP) 
•EMSG5', (SPt 
92. (SP1 
SP.RO 
CIPNTX 
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G5 

PACE 12-1 



SEQ 56 



2897 



2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 







uuuuuo 


Ann 


CO 










DOTklTV ACMCPVA ACTDQlll 












nuv 


AC T DDI 11 


^ CD 




Ultf 746 




nuv 




^ CD ^ 














070472 


010600 




MOV 


5P.R0 




070474 


104415 




TRAP 


CIPNTX 




070476 


062706 


000006 


ADD 


•6.SP 




070502 






ENOnSG 






070502 






L 10004 : 






070502 


104423 




TRAP 


CJMSG 





THESE MESSAGE AREAS ARE USED TO OUTPUT SUPPLEMENTARY INFORMATION 



INVOKED BY APPENDING THE NAME 
ERRXXX l.ERRORMESSAGE.AREANAME. 



AFTER AN ERROR CALL. THEY ARE 
OF THE AREA TO AN ERROR CALL 
THE CORRESPONDING MESSAGE AREA IS SET UP IN THIS SECTION: 

BGNMSG AREANAME 

[CODE] 

ENOMSG 

THE ARF^S IN THIS SECTION ArE FOR MESSAGES USED IN MORE THAN ONE 
TEST. USE THE PRINTS (PRINT BASIC) AND PRINTX (PRINT EXTENDED) 
MACROS . 
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2914 .SBTTL GLOBAL SUBROUTINES SECTION 

2915 I * ♦ 

2916 s THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 

2917 J THAT ARE USED IN MORE THAN ONE TEST. 

2918 I 

2919 ,♦♦ 

2920 i FUNCTIONAL DESCRIPTION: 

2921 : SUBROUTINE TO 

2922 

2924 ; rt#< # #iWW i >itK#H###<#«##*<#< * i***#«^^*^«*^<^<^#<* # *# o *« 

2925 ; COMPLETE THE "SUBROUTINE TO " STATEMENT WITH A FUNCTIONAL 

2926 : DESCRIPTION OF THIS SUBROUTINE. 

2927 ii 
2929 , 

2950 ; INPUTS: 

2951 J 

2935 t **Mm*mM*MitmiMiitMdmMM*mimiii*f* ^^ 

2954 ; LIST THE INPUT DATA THAT ARE EXPLICITLY PASSED TO THIS SUBROUTINE. 

2957 I 

2958 8 IMPLICIT INPUTS; 

2959 ; 

2941 ; Miit**^tMi**miiiMtmim*i M ^ 

2942 , LIST THE INPUT DATA THAT ARE IMPLICITLY USED BY THIS SUBROUTINE; 

2945 : FOR EXAMPLE. DATA READ FROM COMMON AREAS. 
2944 I 

2946 i 

2947 s OUTPUTS: 
2948 

2950 ; ii*0iM / ttM^m*tmitm0timimit M i^^ ^ 

2951 I LIST THE OUTPUT DATA THAT ARE EXPLICITLY GIVEN BY THIS SUBROUTINE 

2952 I iMmtii M mMmMiM M mM^^ 

2954 , 

2955 , IMPLICIT OUTPUTS: 

2956 i 

2958 ; 

2959 { LIST THE OUTPUT DATA THAT ARE IMPLICITLY GIVEN BY THIS SUBROUTINES 

2960 s FOR EXAMPLE. DATA STORED IN COMMON AREAS. 

2961 ; itiiliih M MiitititUM***MmmMt*^m^ 
2965 

2964 : SUBORDINATE ROUTINES USED: 



2965 

2968 ': LIST THE SUBROUTINES CALLED BY THIS SUBROUTINE. 

2969 ; ^^itiiii^t^44/^M/itilM m *4 ^ ^ 

2971 . 

2972 : FUNCTIONAL SIDE EFFECTS: 
2975 . 

2975 : ^%i»it*«i M4 MiMi^ A tMi*mmMimi>A^mtM^M^im^^ 

2976 t DESCRIBE ANY EFFECTS THIS SUBROUTINE MAY HAvE UPON OTHER 

2977 ■ MODULES OF THE DIAGNOSTIC PROGRAM. AN EXAMPLE OF THIS IS 

2979 SUBROUT ^^^^'^^g^^^^^^^^ jj^^^^^jj^^ j^^j^^j^^^" W « • « 

2981 i 

2982 ; CALLING SEQUENCE: 
2985 

2985 
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2986 J GIVE THE EXACT CALLING SEQUENCE USED TO ACCESS THIS SUBROUTINE. 

2987 I fOR EXAMPLE: MOW COUNT. Rl iMOVE INPUT TO Rl 

2988 ; JSR PC. ROUTINE iGO TO ROUTINE 

2989 J BCS ERROR jCARRY SET IF ROUTINE HAO ERROR 

2992 i - 

2993 ; ^^^^^ 

2996 I INSERT THE CODE FOR THIS SUBROUTINE. THE NAME OF THE SUBROUTINE SHOULD 

2997 ! BE DEFINED WITH A DOUBLE - COLON £2^2. j ' THE SUBROUTINE GLOBAL. 

5003 ; BEGIN EACH SUBROUTINE AT THE TOP OF A NEW PAGE. 

5004 iiMmMi^^^iuMmm»^tiMi^iiititmi«i M ^ 
5006 : 
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3008 
3009 
5010 

soil 

3012 
3013 
5014 
3015 
3016 
3017 
301R 
3019 
3020 
3021 
3022 
3025 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 



070504 
070504 
070506 
070510 
070512 
070514 
070516 
070520 
070522 
070524 
070526 



.SBTTL 
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CLKSET CLOCK SETUP SUBROUTINE 



SEQ 61 



FICTIONAL OeSCRIPTION^ ^ ^^^^^ INFORMATION TABLF f OLLOWING 

A "CLOCK" CALL EXECUTED IN THE INITIALIZATION CODE. BUT SINCfe 
THE CLOCK" CALL SAYS NOTHING ABOUT AN LSI 11' S CLOCK. THE 
ROUTINE IS ONLY USED IF A LINE OR P CLOCK IS FQLWD. 



INPUTS 



OUTPUTS 



Rl - POINTS TO SUPERVISOR SPACE UVCRE CLOCK INFO WAS RETURNED 
R2 - POINTS TO "CLK" TABLE WHERE CLOCK INFO WILL BE KEPT 

"CLKCSR" GETS LOADED WITH THE CLOCK 'D CSR ADDRESS 
"CLKBR" GETS LOADED WITH THE CLOCK'S INTERRUPT LEVEL 
"CLKVEC" GETS LOADED WITH THE CLOCK'S INTERRUPT VECTOR 
"CLKHZ" GETS LOADED UITH THE LINE FREQ. (IN HERTZ) 



CALLING PROCEDURE: 
JSR 



PC. CLK SET 



CLKSET: 



012122 
012112 
006312 
006312 
006312 
006312 
006322 
012122 
012122 
000207 



MOV 

nov 

ASL 
ASL 
ASL 
ASL 
ASL 
MOV 
MOV 
RTS 



(R1)*.(R2)* 

(R1)».(R2) 

(R2) 

CR2) 

(R2) 

(R2) 

(R2)» 

(fll)..(R2)» 
(R1)*.(R2)» 
PC 



J CALL CLOCK SETUP WITH Rl AND R2 SETUP 



1 LOAD CLOCK- S CSR AODR. INTO "CLKCSR" 
5 LOAD CLOCK'S INTR. LEVEL INTO "CLKBR' 
; ADJUST THE INTR, LEVEL FOR LOADING 
: INTO THE PSW UITH A "SETVEC" CALL 



: LOAD CLOCK'S INTR. VEC INTO "CLKvEC 
J LOAD CLOCK'S FREQ. INTO "CLKHZ' 
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304 1 
S042 
5045 
5044 
5045 
5046 
504 7 
3048 
5049 
5050 
3051 
3052 
3053 
3054 
3055 
5056 
5057 
5056 
5059 
5060 
5061 
5062 
5065 
5064 
5065 
5066 
3067 
3068 
3069 
3070 
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CLKINT CLOCK INTERRUPT SERVICE ROUTINE 



SEQ 62 



FUNCTIONAL DESCRIPTION: 

THIS IS THE CLOCK INTERRUPT SERVICE ROUTINE UHICM TAKES CARE 
OF KEEPING THE "TIME-SINCE-START" AND COUNTING DOWN ANY OF THE 
"EVENT" TIMERS. THE TIMERS ARE USED TO TIME COMPLETION OF 
DEVICE REQUESTS. THE "TIME-SINCE-START" IS USED TO BE LOGGED 
WITH EACH ENTRY INTO THE EVENT LOG. 

IHPLICIT INPUTS - TIMTCK - THE CURRENT NO. OF TICKS LEFT TO BE COUNTED UNTIL 

A SEC(^ HAS BEEN COUNTED OFF 
CLKHZ - THE NO. OF TICKS IN A SECOND. DETERMINED BY THE 

SYS. LINE FREQ. 
TIMMIN £ TIMSEC - CURRENT VALUE OF "TIME-SINCE START" IN 

MINUTES AND SECONDS 
TIMER 1.2 AND S - CURRENT VALUES OF "EVENT TIMERS" 

IMPLICIT OUTPUTS - NEW VALUE OF EVENT TIMER "1" £ "2" DECREMENTED BY 1 TICK 

IF IT WAS NON-ZERO 
NEW VALUE OF EVENT TIMER "S" DECREMENTED BY 1 SECOND IF IT 
WAS NON-ZERO 



SIDE EFFECTS - 
CALLING PROCEDURE 



3072 


070550 
070530 










BGNSRV 


CLKINT 




5075 


















3074 


070530 


005077 


113202 






CLR 


SCLKCSR 


s 


3075 


070534 


005357 


005754 






DEC 


TIMTCK 


• 


5076 


070540 


001017 








BNE 


lOi 


• 


3077 


070542 


015757 


005744 


003754 




MOV 


CLKHZ. TIMTCK 


• 


3076 


070550 


005257 


050146 






INC 


CNTRS.C.SECS 


• 


5079 


070554 


005257 


003752 






INC 


TIMSEC 


• 


5060 


070560 


022757 


000074 


003752 




CMP 


•60.. TIMSEC 




5061 


070566 


001004 








BNE 


10< 


• 


5062 


070570 


005257 


003750 






INC 


TIMMIN 


• 


5065 


070574 


005057 


005752 






CLR 


TIMSEC 


t 


5064 


070600 








101: 








5065 


070600 


005737 


003756 






TST 


TIMERl 




5086 


070604 


001402 








BEQ 


20* 




3067 


070606 


005357 


003756 






DEC 


TIMERl 


i 


3066 


070612 








20t: 








3069 


070612 


005757 


003760 






TST 


TIMER2 


i 


3090 


070616 


001402 








BEQ 


50 « 


i 


3091 


070620 


005537 


005760 






DEC 


TIMER2 


1 


3092 


070624 








30$: 








3093 


070624 


005737 


003762 






TST 


TIMERS 


t 


3094 


070630 


001406 








BEQ 


40 ( 


: 


3095 


070632 


025737 


003744 


003754 




CMP 


CLKHZ. TIMTCK 


t 


3096 


070640 


001002 








BNE 


40$ 


1 



THE CLOCK IS DISABLED UPON ENTRY AND REENA8LED WHEN LEAVING 

THIS ROUTINE IS CALLED UMEN THE CLOOK INTERRl*>TS THRU 
"CLKVEC". THE ADDRESS OF THIS ROUTINE WAS LOADED 
INTO THE CLOCK'S INTERRUPT VECTOR WITH A "SETVEC" CALL 



CLKINT:: 

DISABLE THE CLOCK FROM INTERRUPTING 
DECREMENT THE NO. OF TICKS/SEC 
GO CHECK TIMERS 
RESET THE NO. OF TICKS/SEC. 
INCREMENT QNA'S NUMBER OF SECS 
INC. NO OF SECS-SINCE-START 
SEE IF WE'VE COUNTED 60 SECS YET 
IF NOT. GO CHECK TIMERS 
ELSE. INC. MINUTES -SINCE -START 
AND RESTART SECOND COUNTER 



SEE IF TIMERl TIMING ANYTHING 
IF-0. NO. CHECK NEXT TIMER 
ELSE DECREMENT THE TIMER VALUE (B> 



1 TIC-O 



SEE IF TIMER2 TIMING ANYTHING 
IF-0. NO. CHECK NEXT TIMER 
ELSE DECREMENT TIMER VALUE (B> I TICK 

SEE IF TIMERS TIMING ANYTHING 
IF-O. NOTHING BE TIMED. LEAVF 

SEE IF A SECOND HAS BEEN COUNTED 0F^ 
BR IF NO 



L5 
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3097 070642 005337 003762 DEC TIMERS 

3098 070646 40S : 

3099 070646 013777 003746 113062 MOV CLKEN.SCLKCSR 

3100 070654 ENOSRV 
070654 

070654 000002 



SEQ 65 



I ELSE. DECREMENT TIMER VALUE (Br 1 SEC.) 
I REENABLE THE CLOCK TO INTERRUPT 
L 10005: 

RTI 



M5 



mn^" ^h^^'sk hmi^i^s ^^^^^'^^^^^^^ 



aS-MAR 84 13:12 PAGE 
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16 



SEQ 64 



3102 
3103 
3104 
3105 
3106 
3107 
3100 
3 109 
3110 
Sill 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 



.SBTTL PREG14 PRESERVE REGISTERS 1 THROUGH 4 ACROSS S'JBROUTINE CALLS 

INPUTS: THE RELATIVE ADDRESS OF THE CALLED ROUTINE MUST FOLLOW THE 

CALL TO THIS ROUTINE (SEE CALLING SEQUENCE). 

OUTPUTS: REGISTERS 1 THROUGH 4 ARE PRESERVED ACROSS THE CALLED ROUTINE, 

A CHECK IS MADE TO ENSURE THE HARDWARE STACK HASN T OVER RUN 
THE PARAMETER STACK. 



i 



CALLING SEQUENCE: 



THIS IS BEST HANDLED Bt THE "CALL' MACRO. THE ACTUAL 
CALL IS: 

JSR R4,PREG14 

.WORD [SUBROUTINE NAME] ANCHOR 



COMMENTS: THIS ROUTINE IS RE-ENTRANT AND RELOCATABLE, 

THIS ROUTINE IS DRS COMPATIBLE. 



: SUBORDINATE ROUTINES CALLED: 



3120 






s ■ 






3121 












3122 


070656 




PREG14: 




R3.-(SP) 


3123 


070656 


010346 




MOV 


3124 


070660 


010246 




MOV 


R2. -(SP) 


3125 


070662 


010146 




MOV 


Rl.-(SP) 


3126 


070664 


010437 050330 




MOV 


R4. PCCALL 


3127 


070670 


012401 




MOV 


(R4)*.R1 


3128 










PC.Rl 


3129 


070672 


060701 




ADD 


3130 


070674 




ANCHOR : 




R4. (SP) 


3131 


070674 


010446 




MOV 


3132 


070676 


020506 




CMP 


R5.SP 


3133 


070700 


103401 




BLO 


10» 


3134 


070702 


000000 




HALT 




3135 


070704 




10$: 




PC.(Rl) 


3136 


070704 


004711 




JSR 


3137 


070706 


012604 




MOV 


CSP)».R4 


3130 


070710 


012601 




MOV 


CSP)»,R1 


3139 


070712 


012602 




MOV 


(SP)»,R2 


3140 


070714 


012603 




MOV 


(SP)».R3 


3141 


07071b 


000204 




RTS 


R4 



THE ROUTINE SPECIFIED IN THE CALL. 
5R4 IS ALREADY ON THE R6 STACK. 
I PUSH R3. R2. Rl 



:GET THE RELATIVE ADDRESS OF THE CALLED 
;ROUTINE. 

{MAKE IT AN ABSOLUTE ADDRESS. 

(SAVE THE RETURN TO THE CALLING ROUTINE. 
I CHECK FOR STACK OVER -RUN. 



HANDLE STACK OVER RUN CONDITION. 



;CALL THE SPECIFIED ROUTINE. 

jRESTORE THE RETURN TO THE CALLING ROUTINE 

:RESTORE THE REGISTERS. 



(BACK TO THE CALLING ROUTINE. 



N5 
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3143 
3144 
3145 
3146 
3147 
3146 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3156 
5159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
5161 



3162 
3163 
3184 
3185 



070720 
070720 
070724 
070730 
070752 
070754 
070754 
070740 
070742 
070746 
070750 
070754 
070756 
070756 
070760 
070762 
070764 
070764 
070764 
070770 
070772 
070772 
070776 
070776 
070776 
071000 



012705 
012704 
005002 
010514 

005737 
001011 
005757 
001403 
005057 
000410 

005714 
001365 
000405 



004457 
000106 

012702 



010225 
000207 
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UAIT 



SEQ f>'. 



UAIT FOR DEQNA INTERRUPT WITH TIMEOUT 



; ♦ ♦ 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE WAITS FOR INTERRUPTS FRQM THE DEQNA 
OR REPORTS A TIMEOUT. IF A QNA INTERRUPT HAS NOT 
OCCURED WITHIN THE TIMEOUT PERIOD THE SUBROUTINE ERROR 
IS CALLED TO HANDLE IT. 



TNPUTS 

OUTPUTS- 



SUCCESS OR FAILURE IS REPORTED VIA PI. 
NONE 

SUCCESS/FAILURE 0« SUCCESS/ 1 -FAILURE 



PI 



CALLING SEQUENCE: 
CALL 
P$POP 



UAIT 
PI 



000012 
003756 



050270 
050262 
050262 



UAIT: 



10$: 



070656 
177777 



20$: 

30* ; 

40S: 
50(: 



MOV 
MOV 
CLR 
MOV 

TST 
BNE 
TST 
BEG 
CLR 
BR 

TST 
BNE 
BR 

CALL 



MOV 

RETURN 



«10. .R3 

0TIMER1.R4 

R2 

R5.(R4) 

ERRFLG 
30$ 

DNIFLG 
20$ 

DNIFLG 
50$ 

(R4) 

101 

40$ 

ERROR 



0 1.R2 
R2 



! MOVE NO. OF COUNTS TO R3 
; AND TIMER TO BE USED TO R4 
; LOCAL STATUS PARAMETER 
;SET NUMBER OF TICKS. (GLOBAL) 

: CHECK IF ERROR OCCURED 

; BR IF YES 

; CHECK FOR INTERRUPT 

: BR IF INTERRUPT RECEIVED 



;HAS TIMER EXPIRED? 

: BR IF NO TO UAIT FOR INTERRUPT 

:BR TO 40$ 



sCALL ERROR ROUTINE 
JSR 
.WORD 

: INDICATE FAILURE 



R4.PREG14 
ERROR ANCHOR 



jRETURN WITH SUCCESS/FAILURE INDICATION 
MOV R2.(R5)» 
RTS PC 
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5187 
5100 
510«» 
5l«»0 
5191 
5192 
S195 
5194 
5195 
5196 
Sl9r 
5196 
5199 
5200 
3201 
5202 
5205 
5204 
5205 
5206 
5207 
5206 
5209 
5210 
5211 
5212 
5215 



5214 

5215 



5216 
5217 
5216 



5219 
5220 
5221 



22 MAR 04 15:12 PAb€ 18 
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SEQ 66 



5222 
5225 

5224 



071002 
071002 

071006 
071012 
071014 
071020 
071022 
071026 
071050 
071050 
071052 
071054 
071056 
071040 
071042 
071042 
071044 
071046 
071050 
071052 
071056 
071060 
071060 
071062 
071064 
071066 
071070 
071074 
071076 
071076 
071100 
071102 
071104 
071106 
071112 
071112 



005557 

005757 
001015 
005757 
001017 
005757 
001025 

104455 
000004 
065565 
070506 
000424 

104455 

OOOOOl 
065456 
070506 
005557 
000415 

104455 

000002 
065467 
070506 
005337 
000406 

104455 

000003 
063527 
070306 
005557 

000207 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE CHECKS THE ERROR FLAGS SET Br 
QNAISR THE INTERRUPT SERVICE ROUTINE AND PRINTS 
OUT THE APPRORIATE ERROR MESSSAGES. 



INPUTS 

IMPLICIT: 
OUTPUTS 

IMPLICIT: 



ERROR FLAGS SHOULD BE SET BY UNAISR ROUTINES. 

ERROR MESSAGES ARE PRINTED OUT TO THE OPERATOR CONSOLE. 



CALLING SEQUENCE: 

CALL ERROR 



ERROR: 



050270 
050254 
050252 
050266 



050254 



050252 



050266 



DEC ERRFLG 

TST PCEFLG 

BNE 101 

TST FATFLG 

BNE 201 

TST BCOUNT 

BNE 501 

ERRDF 4.EHSG04.ERR1 



BR 40* 

10*: ERRDF 1 .EMSGOl .ERRl 



DEC PCEFLG 
BR 40* 
20*: ERROf 2 . EMSG02 . ERR 1 



DEC FATFLG 
BR 40* 
50*: fcRROF S.tMSOOS.tMHl 



DEC BCOUNT 
40*: RtTURN 



(DECREMENT ERROR COUNTER TO SHOW 

I THAT IT HAS BEEN HANDLED 

(SEE IF PORT COMMAND ERROR 

I IF YES. BRANCH 

(SEE IF QNA FATAL ERROR 

I IF YES. BRANCH 

I SEE IF UNEXPLAINED INTERRUPT 

I IF lES. BRANCH 

(ELSE UNKNOWN ERROR 

TRAP 
.WORD 
.UORO 
.WORD 

t EXIT 

I PORT COMMAND ERROR 

TRAP 
.WORD 
.WORD 
.WORD 

t INDICATE THAT IT uAS HANDLED 
I EXIT 

I QNA FATAL ERROR 

TRAP 
.WORD 
.WORD 
.WORD 

I KEEP UP ON BOOK KEEPING 
I EXIT 

jUNEXPLAINEO INTERRUPT 

TRAP 
.WORD 
.WORD 
.WORD 

I BOOK KEEPING 
iRETURN 

RTS PC 



C*ERDF 
4 

EMSG04 
ERRl 



C*ERDF 
1 

EMSGOl 
ERRl 



C*EROF 

2 

EMSG02 
ERRl 



C«EROF 
5 

EMSG05 
ERRl 



C6 
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SFQ 



S^2b 
$227 
S226 

5250 
52SI 
i^52 
S2SS 
S234 
5255 
52 56 
5257 
5258 
5259 
5240 
5241 
5242 
5245 
5244 
5245 
5246 
524-' 
5248 
5249 
5250 
5251 
5252 
5255 
52S4 
5255 
5256 
5257 
5258 
5259 
5260 
5261 
5262 
5265 
5264 
5265 
5266 
5267 
5268 
5269 
5270 
5271 
5272 



•SBTTL 



QNAINI INITIALIZE THE QNA 



SUBROUTINE TO 



1) SET'S QNA IN THE READY STATE 

2) INITIALIZES ALL QNA GLOBAL DATA LOCATIONS 

TO DErAULT VALUES. 



ROUTINE STEPS: 



SET RESET BIT RESET THE QNA 

SET TIMER TO ALLOW 100 USECONOS FOR INIT 

INVALIDATE THE TRANSMIT LlST(S) 

VALIDATE THE RECEIVE LIST(S) 

ZERO RECEIVED BUFFER COUNT 

WAIT FOR TIMER 

CLEAR THE RESET BIT 

SET VECTOR ADDRESS 

READ PHYSICAL ADDRESS ROM AND STORE IT 

WRITE THE RECEIVE RING LOWER AND UPPER ADDRESS(S) 

ENABLE INTERRUPTS AND DATA RECEPTION 

EXIT 



CALLED BY: 

INPUTS: 

OUTPUTS: 

SIDEEFFECTS: 



CALL QNA INI 

NONE 

NONE 

ALL GLOBAL LOCATIONS ARE ZEROED 



RESET AND STOP QNA HARDWARE 



071114 








QNAINI: 








071114 


015702 


047772 






MOV 


QNA ADO. R2 


i 


071120 


052757 


000002 


050246 




BIS 


•MRESET.CSRBUF 


i 


071126 


015762 


050246 


000016 




MOV 


CSRBUF.CSRCR?) 


i 


071154 


0127S7 


000001 


005756 




MOV 


♦l.TIMERl 


• 


071142 








lOt: 








071142 


005757 


005756 






TST 


TIMER 1 


1 


071146 


001575 








BNE 


101 


t 


071150 


012762 


000002 


000016 




MOV 


•MRESET,CSR{R2) 


• 


071156 


005062 


000016 






CLR 


CSR(R2) 


1 



iLOAD AND RUN CITIZENSHIP TEST 



5275 


071162 


005757 


050250 


TST 


FLAGl 


5274 


071166 


001162 




BNE 


QNAINI 


5275 


071170 


012757 


000001 050250 


MOV 


♦ I. FLAGl 


5276 


071176 


012701 


000002 


MOV 


»2.R1 


5277 












5278 


071202 


012704 


021200 


MOV 


•RDESC.R4 


5279 


071206 


012705 


004100 


MOV 


•RBUFB.R5 


5260 


071212 




40S: 






5281 


071212 


012724 


177777 


MOV 


♦ l.{R4). 


5292 


071216 


012724 


100000 


MOV 


»V,(R4). 



WRITE IT TO THE QNA 
TIMER FOR INITITIALIZE 

INIT DONE? 



CLEAR THE RESET BIT 
WRITE IT TO THE QNA 



J HAVE WE GONE THRU THE CITIZENSHIP 
t TEST BEFORE? IF YES. BRANCH. 

iBUiLD TWO RECEIVE DESCRIPTORS Of 
t 2K BYTES EACH 
,GET POINTER TO DESCRIPTOR 
jGET POINTER TO 1ST BUFFER 



iFLAGWORD 
jOESCRIPTOR BITS 



D6 
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SEO 68 


V urn ft 

uu 


071222 


010324 








nuv 


D V / OA ^ ^ 
H3 , I HI ^ ♦ 


irOINTtR TO HUrrtR 




SPSS 


071224 


062703 


004000 






ADD 


•2048 .R5 


iGET POINTER TO 2ND BUTFFR 

1 **W ■ »w*'^'W" C • »W r t." 






071230 


012724 


176000 






MDv 

f lU ¥ 










071234 


012724 


177777 






f IVJ ¥ 










071240 


012724 


177777 






MOV 






























071244 


005301 








DEC 

Www 


Rl 








071246 


003361 
















<POP 


071250 


005024 










f R4 • 


iFLAGUORD OF INVALID DESCRIPTOR 






071252 


005024 








CLR 


f R4 )* 


iDESCRIPTOR BITS Of INVALID DESCRIPTOR 
























071254 


012762 


000002 


000016 




MOV 


AMRESET CSRfR2) 

VI ^w 1 a w Sin \ / 


1 CLEAR THE RESET BIT 






071262 


005062 


000016 






CLR 

WW" 


C<;RfR9) 


1 URITE IT TO THE QNA 


























071266 


012762 


021200 


000004 




MOV 


4RDESC L0RCV(R2) 


iSET POINTER TO DESCRIPTOR 






071274 


012762 


001010 


MAMA 4 £. 

OOOOlo 




MOV 


MO* EL CSRfR2) 

VDW • WW 1 W W" V "C / 


iSET LOAD ROM BIT 






071302 


005062 


000006 






CLR 

wwr^ 


HiRCVf R2) 

n &nw » \ "C / 


1 BEGIN THE LOAD 




SMI 


071306 


005004 








CLR 

WW" 


R4 


iUAIT FOR BOOT PHASE 1 






071310 








451 : 












071310 


077401 










R4.45I 








071312 


042762 


000010 


000016 




BIC 
o « w 


4SD CSRfR?) 


{CLEAR BOOT BIT 






071320 


005004 








CLR 

WW" 


R4 


lUAIT FOR BOOT PHASE 2 






071322 








47f : 












071322 


077401 










R4 47> 






S30A 


















3S09 


071324 


012762 


000002 


000016 




MOW 


•HRESET CSRfR2) 


1 CLEAR THE RESET BIT 






071332 


005062 


000016 






CL R 




( WRITE IT TO THE QNA 




5511 




















^ J AC 


071336 


012704 


021200 








•onPCC R4 






^ J A J 


071342 


026427 


000000 


177777 




CMP 


n AAUORnf R4 ) A 1 


:DID CITIZENSHIP TEST LOAD O.K. 


■J 


S314 


071350 


001016 












iNO. ERROR 




3315 


















5516 


071352 


026427 


000010 


177777 




CMP 


4TATlfR4') 4 1 






5517 


071360 


001012 












:N0. ERROR 




5518 


















3319 


071362 


026427 


000012 


177777 




CMP 

w< ~ 


STAT4fR4) 4-1 






55PO 


071370 


001006 








RNF 


sot 


iNO. ERROR 




55P1 




















071372 


012704 


021214 






nvw 


vRUw9V •"Mw 


{GET POINTER TO 2ND DESCRIPTOR 




3325 


071376 


026427 


000000 


177777 




TMP 
wr^ 


rLAGU0RDCR4).« 1 


iDID CITIZENSHIP TEST LOAD O.K. 


J 


3524 


071404 


001410 








DwU 




JTES 




5325 


















3326 


071406 








501 ; 










3327 


071406 












fkS FM^G65 


:N0. ERROR. 






071406 


104456 










TRAP 


CfERHRD 




071410 


000101 












.UORD 


65 




071412 


066705 












.UORD 


EMSG6S 




071414 


000000 












UORD 


0 


3528 


071416 


012700 


177777 






MOW 


C l.RO 


»SET FAILURE STATUS 




5524 


A71 










IMP 


QMAF X T 


(AND EXIT 




3330 




















3331 


071426 








70»: 










3332 


071426 


013701 


047772 






MOV 


QNAAOO.Rl 


tGET BASE ADDRESS 




3333 


















3334 


071 .32 


010246 








MOV 


R2. (SP) 






3335 


071454 


010546 








MOV 


R5, (SP) 


iSAVE R5 STACKPOINTER 





b6 
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QNAINI INITIALIZE THE QNA 



















m \ A XA 


Af 3 7AO 


A 1 A 1 AA 

ui4 lyu 




nuv 




3330 


O f 


AAA 7V7 


A*^A 1 AA 
VV4 IU4 




ICQ 
•J3N 




X X XQ 














X XM/\ 


A7f AAA 
O f 144© 


At ^^AC 






MAW 

nuv 


r CD ^ ft 


V x^ % 
55*1 


0714 jO 


A 1 3^A^ 






nvv 




35*c 


















/V\C7AA 






T^T 


DO 




n7i 


fWM AiX 
W14 lO 






RFQ 




55#3 


A71 A^A. 










DO Ainnonn 


39*f> 


A71 AA"^ 


AAf A f A 
UU141U 








Ant 


99^ f 


A7l 










Off C(9Uv f 




A71 AAA 


1 t%AAKA 
lv4430 












A71 AAA 


<v>m nx 












A 7 1 A 7A 


vO fsJ ' 1 












A71 ^ 7D 












09^0 


w f 1^ » ^ 


wlc f VV 


1 77777 




nvw 






A71 CAA 


nOAl 57 
vWl 3 r 


V f Clcc 




IMP 




99S\J 














XXK\ 

9901 


071 KAa 


SJ9C r Oc 


VI V>AA/ 


WWIO 


Am- RTT 

OV 9 n D X 1 




XX^O 


A7I CI o 


WV1"»1V 








QNATNl 


XX^X 

99 j9 


A71 K^A 








cOQHBn 
^nnrmv 


DO t cnsuov 




n71 ^1 A 
U r 1314 


11/44 30 












n71 KtA 
V r 1310 


UWlVC 












n71 

U r 1 3cU 


/W^777 












n71 ^33 












990^ 


A71 ^OA 


A1 37AA 
vie ' VV 


1 77777 
1 f f f f f 




Mnw 


ft . 1 RO 
w - 1 » wv 


9999 


A7I KTA 


fW)1 V7 


A731 33 
U rclCC 




IMP 




99 














XX^l 

999 1 


m^ ^XA 












XX^ 


n7i 

w r 13^4 


A1 X7A3 
U13 r wc 


AA7773 
W4 1 f fc 






OMAAOO R3 


999^ 


A71 <tAn 


A^37X7 
U3c r 3 r 


UVUVVC 


U3vc40 


RTC 
013 


VTlnC3C 1 «U3nDV^ 


99WJ 


n7i 


A4 V7JL.3 


O3vc4o 


AAAA1 


nuv 


U3nDV^ •U3ninc/ 


990L 


A71 CCA 


A1 37*7 
Vic f 3 f 


A/V1AA1 


AA57Cil 
UU3 r30 


nuv 


ftl TTMF01 


XX^O 


071 ^A,0 
\> 1 130c 








3* : 




XVtX 


n71 <U«3 
V r 130c 


nA^7 V7 
vV3 1 3 t 


AAV7CiL 




I 3 I 




XXf^ 

99v^ 


U r 1300 


VU13 '3 






RMP 


3 9 


XXfk% 

99^9 


071 ^7n 
V f 13 r U 


AA3757 
\J^C 191 


AAAAA3 


v3Vc4D 


Dlb 


ftMDFCFT rCRRir 
VI VIC3C 1 t^3nDV* 


XX/A 


071 S7«> 
V r 13 fO 


At 574^3 
V13 roc 


w3vc4o 


AAAA1 A 
UVUVIO 


Mnw 
nuv 


UjMDV^ »U3W\"c j 




0714kAA 
V r 10U4 


A1 V7J^3 
U13 rPC 


AA7 77A 
V4 f f f 4 


AAAA1 A 


MAW 

nuv 


unn vuv 1 vci. 1 vvf V nc / 


XXAH 


n71 3 
V ' lOlc 


ftl 3757 

Vic 19 1 


Vc4e30 


VC4££U 


Mnw 
nuv 


ftvOTMr: yQnriB 

V Aninu t Anv^vn 




071 A3n 


m 37*7 
Vic 1 9 f 


A3A3XA 
Ve4e30 


Ue4«;c4 


Mnw 
nuw 


ftVRTMn XRHMXT 


J J f v 


071 4^3A 


ni 3757 
Vic 191 


VC4^0V 


A3A333 
Ue4cce 


Mnw 

nvw 




SS71 


071 


01 3757 
Vic 'Or 


t\OA*LAA 
VC4344 


Wc4c34 


MOW 
nuv 


ftORTUnH RRHPRW 


557? 


071 


ftl 3757 
Vic r 3 r 


Vc4cOW 


03A33A 


Mnw 
nuv 




5575 

99 f 9 


V f lO 


A1 3705 
vie f V3 


VVWVl 




Mnw 
nuv 


ftl 05 


5574 


V ' Iv 








1 nt • 
1U» • 




557^ 


V » lO 


01 57m 

V13 f VI 


n3A330 
Vg4ccV 




Mnw 
nuv 


XRnriD RI 
Aft OV» V" • ~ 1 


5576 


071MtO 

V ' lOvV 


\^/3^^1 


www 






ri AnrRi i 

r ^nuv ~ X y 


^577 

r r 


W f 1004 


\A/3^^1 


AAAA1 A 
VVUVlU 






CTAT 1 f RI ') 
3 1 H 1 IV ni i 


3370 


071670 


005061 


000012 

WW AC 




CLP 


STAT2(R1 ) 


3579 


071674 


012761 


024574 


000004 


MOV 


«XRG001.L0A00(R1) 


3380 


071702 








CALL 


GETXNX «0.«XRGCUR 




071702 


012725 


024220 










071706 


012725 


000000 










071712 


004437 


070656 










071716 


006534 











SEQ 69 



I GET UORK AREA 

iGO TO THE CITIZENSHIP TEST VIA VECTOR 
{RESTORE R5 STACKPQINTER 



tOIO ERRORS OCCUR DURING CITIZENSHIP? 
iNO 

iNO 

tNO. ERROR. 

TRAP CIERHRO 
.UORD 67 
.UORD EMSG67 
.WORD 0 

;SET FAILURE STATUS 
jANO EXIT 

;IS TRANSCEIVER OK? 
;rES 

I NO. ERROR. 

TRAP CtERHRD 
.UORO 66 
.UORO EMSG66 
.UORO 0 

I SET FAILURE STATUS 
:ANO EXIT 



RESTORE DEVICE ADDRESS TO R2 
SET SOFTWARE INIT BIT 
WRITE IT TO THE QNA 
TIMER FOR INITITIALIZE 

INIT DONE? 

BRANCH IF NOT 

CLEAR THE RESET BIT 

WRITE IT TO THE QNA 

SET THE INTERRUPT VECTOR 

SET XMIT POINTER TO BEGINNING OF RING 

AGAIN 

SET RCV POINTER TO BEGINNING OF RING 
SET PREVIOUS POINTER TO LAST DESCRIPTOR 
SET NEXT DESCRIPTOR POINTER 
RESET OWNERSHIP/STATUS OF XMIT RING 

RING ENTRIES 
RESET FLAG 
RESET STATUS 
RESET STATUS 2 



MOV OXRGCUR . ( R5 ) . 

MOV »0.(R5). 

JSR R4.PREG14 

.WORD GETXNX ANCHOR 
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3381 


071720 


005503 






DEC 


R5 




3382 


071722 


001554 






B^4E 


10» 




3383 


071724 


012705 


000017 




MOV 


•15. ,R5 


1 ...AND RECEIVE RING 


3384 


071750 








20t: 






3385 


071750 


015701 


024222 




MOV 


RRGCUR.Rl 




3386 


071754 


005061 


000000 




CLR 


FLAG(Rl) 


1 CLEAR Ft AG WORD 


3587 


071740 


005061 


000010 




CLR 


STATKRl ) 


1 CLEAR STATUS I 


3388 


071744 


005061 


000012 




CLR 


STAT2(R1) 


J CLEAR STATUS 2 


3389 


071750 


012761 


100000 


000002 


MOV 


•MVALID.DESCCRl ) 


1 SET THE VALID BIT FOR THIS DESCRIPTOR 


5390 


071756 








CALL 


GE TRNX •O . MRRGCUR 


i UPDATE, BUT DON'T VALDIATE PREVIOUS 




071756 


012725 


024222 








MOV •RRGCUH , ( R5 ) ♦ 




071762 


012 /25 


OOOOOO 








MOV #0 , ( R5 ) • 




071766 


004457 


070656 








JSR R4,PREG14 




071772 


006450 










.WORD GETRNX ANCHOR 


3391 


071774 


005505 






DEC 


R5 




3392 


071776 


001554 






BNE 


20* 




3393 


072000 


012757 


024256 


024220 


MOV 


•XRING.XRGCUR 


s SET POINTERS TO BEGINING OF RING 


3394 


072006 


012757 


024260 


024222 


MOV 


9RRING.RRGCUR 




3395 


072014 


005057 


024546 




CLR 


RRINGH*DESC 


; INVALIDATE LAST DESCRIPTOR 


3396 


072020 


005057 


050256 




CLR 


NIRCNT 


{ CLEAR BUFFERS RECEIVED COUNTER 


3397 


072024 


012762 


024260 


000004 


MOV 


«RRING.L0RCV(R2) 


8 SET LOW RECEIVE LIST ADDRESS 


3398 


072052 


005062 


000006 




CLR 


HIRCV(R2) 


J SET HIGH ADDRESS OF RCV LIST 


3399 


072056 


052757 


000501 


050246 


BIS 


•MILOOP!MINTEN!MRCVEN.CSRBur ; SET BITS IN BUPFERED CSR 


3400 


072044 


015762 


050246 


000016 


MOV 


CSRBUF.CSR(R2) 


; WRITE TO THE QNA 


3401 


072052 


012705 


004010 




MOV 


•PHYADR.R5 


; GET PHYSICAL NODE ADDRESS BUF 


5402 










t 






5405 










i NOW SETUP ADDRESSES IN THE OEQNA 




5404 

5405 


072056 


1 16225 


OOOOOO 




MOVB 


NETA00(R2).(R5)» 


s GET BTTE OF NODE ADDRESS 


5406 


072062 


116225 


000002 




MOVB 


NETA00*2(R2).(R5)» 


i GET NEXT BYTE OF NODE ADDRESS 


5407 


072066 


116225 


000004 




MOVB 


NETA00*4(R2).(R5)» 


t GET NEXT BYTE OF NODE ADDRESS 


5408 


072072 


116225 


000006 




MOVB 


NETA00*6CR2).(R5)» 


1 GET NEXT BYTE OF NODE ADDRESS 


5409 


072076 


116225 


000010 




MOVB 


NETADD»10CR2).(R5)» 


: GET NEXT BYTE OF NODE ADDRESS 


5410 


072102 


116215 


000012 




MOVB 


NETADD»12CR2).(R5) 


: GET NEXT BYTE OF NODE ADDRESS 


5411 


072106 








CALL 


SETUP tflNIAOR 


; CALL SETUP WITH INIT ADRESS FONC CODE 




072106 


012725 


OOOOOO 








MOV ♦INIADR.(R5)» 




072112 


004457 


070656 








JSR R4.PREG14 




072116 


001252 










.WORD SETUP -ANCHOR 




072120 








PIPOP 


RO 


1 GET RETURN STATUS 




072120 


014500 










MOV (R5).R0 


5413 


072122 








QNAEXI: 






5414 


072122 








RETURN 


RO 


} FINISHED. LEAVE. VAMOOSE. ETC. 




072122 


010025 










MOV RO.CRS)* 




072124 


000207 










RTS PC 



G6 
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SETUP SETUP UP NI ADDRESSES IN QNA 

3416 .SBTTL SETUP - SETUP UP NI ADDRESSES IN QNA 

3417 !♦» 

3410 : FUNCTIONAL DESCRIPTION: 

3419 { 

3420 : THIS ROUTINE LETS THE QNA KNOU UHICH ADDRESSES IT IS SUPPOSED TO 

3421 : RtCOGNIZF.. 

3422 • 

3423 i BEGIN 

3424 : POINT TO TARGET ADDRESS TABLE 

3425 ; GET SETUP TYPE FROM PARAMETER STACK 

3426 t CASE SETUP TYPE 

3427 I . INITIALIZE TABLE 

3428 ! . INITIALIZE ADDRESS GROUP POINTER 

3429 i . DO UHILE ALL ADDRESS GROUPS HAVE NOT BEEN URITTEN 

3430 I . INITIALIZE COLUMN POINTER 

3431 : . POINT TO BASIC ADDRESSES TABLE (MBZ. OUR DUN) 

3432 s ... DO UHILE ALL ADDRESS COLUMNS FOR THIS GROUP ARE DONE 

3433 : . IF BASIC ADDRESSES HAVE BEEN URITTEN 

3434 THEN 

3435 : ! POINT TO OUR DUN NI PHYSICAL ADDRESS 

3436 : . ENDIF 

3437 ; . EXECUTE SUBROUTINE TO FILL IN THIS ADDRESS 

3438 i . ENODO 

3439 t . ENDDO 

3440 . ADD DECNET CONSOLE ID MULTICAST ADDRESS 

3441 : . . POINT TO MULTICAST ADDRESS 

3442 ; . INIT GROUP POINTER 

3443 : . INIT COLUMN POINTER TO MULTICAST ADDRESS COLUMN 

3444 : . INIT ROU POINTER 

3445 : . EXECUTE ROUTINE TO FILL IN THIS ADDRESS 

3446 : . KILL DECNET CONSOLE ID MULTICAST ADDRESS 

3447 : . POINT TO MULTICAST ADDRESS 
3446 . INIT GROUP POINTER 

3449 : . INIT COLUMN POINTER TO MULTICAST ADDRESS COLUMN 

5450 i . INIT ROU POINTER 

3451 J . EXECUTE ROUTINE TO FILL IN THIS ADDRESS 

3452 s ENDCASE 

3453 ; VALIDATE THE XMIT DESCRIPTOR FOR A SETUP 

3454 ; EXECUTE ROUTINE TO XMIT THE SETUP PACKET 

3455 5 IF STATUS - SUCCESS 

3456 Then 

3457 i ! set status • error 

3456 : . execute routine to find a received packet 

3459 : . IF ERROR UAS DETECTED 

3460 . THEN 

3461 : . REPORT RECEIVE ERROR 

3462 : . ELSE 

3463 : . IF NO PACKET HAS BEEN FOUND 

3464 J . THEN 

3465 : . REPORT PACKET NOT RECEIVED 

3466 . ELSE 

3467 J . IF PACKET IS NOT A SETUP PACKET 
3466 THEN 

5469 i ! REPORT UNEXPECTED PACKET 

5470 : . ELSE 

5471 ; . IF THE XMITTED PACKET SIZE NOT • RECEIVED PACKET SIJE 
54 72 ; THEN 



1-16 
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SEO 7? 



3475 
34 74 

54 75 
5476 
5477 
54 78 
5479 
5480 
5481 
5482 
5485 
5484 
5485 
5486 
5487 
5488 
5489 
5490 
5491 
5492 
3495 
5494 
5495 
5496 
5497 
5498 
5499 
3500 
5501 
5502 
5503 
3504 
3505 
5506 
5507 
5508 
5509 
3510 
5511 
5512 
5513 
3514 
3515 
5516 
3517 
5518 
5519 
5520 
5521 
5522 
3523 
3524 
5525 
5526 
5527 
5528 

5529 072126 



ELSE 



REPORT BYTE COUNT ERROR 



IF XMITTED SETUP DATA NOT > RECEIVED SETUP DATA 
THEN 

REPORT ADDRESS MISMATCH 
STATUS - SUCCESS 



END IF 

ENDIF 

ENOIF 

ENDIF 
ENOIF 

RETURN STATUS - STATUS 
RETURN WITH RETURN STATUS 
END 

CALLING SEQUENCE 
TBD 

INPUT 

NONE 
IMPLICIT INPUT 
NONE 

OUTPUT 

NONE 



J IMPLICIT OUTPUT 

I NONE 

! COHPLETION COOES 

I NONE 

! SIDE EFFECTS 

! NONE 

! REGISTERS USED 
i 
i 



ELSE 
ENOIF 



RO - RETURN STATUS. SET BY CALLED ROUTINES 

Rl - CASE OFFSET REG. ADDRESS GROUP POINTER 
R2 ADDRESS COLUMN POINTER 

R5 - POINTS TO TABLE OF NI ADDRESSES 



I DEBUG 
> 
« 

SETUP; 



NONE 



16 



CVNIAAO 
5t TOP 




HAR A4 
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SEQ 75 


5530 


072126 


012700 


177777 


MOV 


♦ l.RO 


1 


ASSUME ERROR 


5551 


072152 


012704 


025570 


MOV 


«TGTADR.R4 


i 


OtONA ADDRESS TABLE (NOT NODE TABLE) 


555^ 


072156 






P»POP 


Rl 


1 


GET PARAMETER. BUT DON' T LOSE IT 




072136 


014501 










MOV -{R5).R1 


5533 


072140 


100005 




BPL 


10* 


1 


BRANCH IF NOT UNDER RANGE 


3534 


072142 






ERRSF 


50,EMSG50 


i 


REPORT RANGE UNDERFLOW 




072142 


104454 










TRAP CIERSF 




072144 


000062 










. UORO 50 




072146 


065544 










. UORO EMSG50 




072150 


000000 










.WORD 0 


5535 


072152 


000556 




BR 


SETEXI 






5536 


072154 




10*: 










3537 


072154 


022701 


000002 


CMP 


«2.R1 


1 


CHECK UPPER LIMIT OF CASE OFFSET 


3538 


072160 


002005 




BGE 


20* 


t 


BRANCH IF UIThIN RANG 


3539 


072162 






ERRSF 


51.EMSG51 


t 


REPORT RANGE OVERFLOW 




072162 


104454 










TRAP CJERSF 




072164 


000065 










.WORD 51 




072166 


065600 










1 a^%^%f^ ^^A^^tf^V A 

. WORD EMSG51 




072170 


000000 










.WORD 0 


5540 


072172 


000526 




BR 


SETEXI 


i 


LEAVE 


3541 


072174 




20>: 










5542 


072174 


006501 




ASL 


Rl 


s 


TURN INTO WORD INDEX 


5545 


072176 


062701 


072204 


AOO 


•50*. Rl 


• 


POINT TO WORD OFFSET 


5544 


072202 


061107 




ADD 


(Rl).PC 


1 


GO 00 IT 


5545 


072204 




50»: 










5546 


072204 


000006 




.WORD 


SETINI - 50* 


: 


OFFSET TO INITIALIZE 


5547 


072206 


000142 




.UORO 


SET AOO - 50* 


t 


OFFSET TO SET OECNET MULTICAST 


554fe 


072210 


000204 




.UORO 


SETKLO - 30* 


s 


OFFSET TO KILL OECNET MULTICAST 


3549 


072212 




SET INI: 










3550 


072212 


012701 


177700 


MOV 


•-100.R1 


i 


GROUP POINTER 


5551 


072216 




lot: 










5552 


0"'2216 


062701 


000100 


AOO 


•100. Rl 


» 


BUMP THE GROUP POINTER 


5555 


i> 12222 


001427 




BEQ 


20* 


• 


IF ZERO. DO THE FIRST GROUP 


5554 


072224 


022701 


000200 


CMP 


•200. Rl 


t 


HAVE THE Two GROUPS BEEN WRITTEN? 


5555 


072230 


001024 




BNE 


20* 


: 


BRANCH IF NOT 


5556 
















3557 


072232 


013701 


024220 


MOV 


XRGCUR.Rl 


• 


GET XMIT PACKET ADDRESS 


3556 


072256 


012761 


177700 000006 


MOV 


•-lOO.UROCNTCRl) 




WRITE ALL ADDRESSES 


5559 


072244 






CALL 


SETMRT 


• 


WRITE THEM 




072244 


004437 


070656 








JSR R4.PREG14 




072250 


001560 










.WORD SETuRT ANCHOR 


3560 


072252 






P$POP 


RO 


• 


ANY ERROR 




072252 


014500 










MOV ( R5 ) . RO 


3561 


072254 


001075 




BNE 


SETEXI 




IF YES. GO WRITE THE ADDRESSES 


3562 


072256 


013701 


024220 


MOV 


XRGCUR.Rl 


• 


ELSE. GET NXT XMIT DESCRIPTOR 


3563 


072262 


012761 


177705 000006 


MOV 


• 75,URDCNT(Rl) 




WORD COUNT TO INIT THE MODE BITS 


3564 


072270 






CALL 


SETWRT 


• 


WRITE THE PACKET 




072270 


004437 


070656 








JSR H4.PREG14 




072274 


001560 










.WORD SETWRT ANCHOR 


3565 


072276 






PIPOP 


RO 


a 


GET STATUS 




072276 


014500 










MOV (R5).R0 


3566 


072500 


000463 




BR 


SETEXIT 


i 


LEAVE 


3567 


072502 




201: 










3568 


072502 


012702 


177777 


MOV 


• 1.R2 


t 


INIT THE COLUMN POINTER 


3569 


072506 


012703 


004002 


MOV 


•NOADR , R 5 


i 


''UINI 10 Ho/ MNU r'MTbll.HL HUUKt'^t^ 


3570 


072512 




50*: 










3571 


072512 


005202 




INC 


R2 


i 


BUMP THE COLLiMN POINTER 



J6 
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5572 


072314 


022702 


000010 






CMP 


•8. .R2 


3575 


072320 


001736 








BEQ 


10< 


3574 


072322 


005701 








TST 


Rl 


3575 


072324 


001003 








BNE 


40 1 


3576 


072326 


022702 


000002 






CMP 


•2.R2 


3577 


072332 


103002 








BHIS 


50* 


3570 


072334 








40t: 






3579 


072334 


012703 


004010 






MOV 


•PHtADR,R3 


3560 


072340 








50<: 






3581 


072340 


004137 


073006 






JSR 


Rl.SETFIL 


3582 


072344 


000762 








BR 


30 1 


3583 


072546 








SET ADO: 






3584 


072546 


012705 


004032 






MOV 


0MCSTAD.R3 


3585 


072352 


005001 








CLR 


Rl 


3586 


072354 


012702 


000004 






MOV 


M.R2 


3587 


072560 


004157 


073006 






JSR 


Rl.SETFIL 


3588 


072564 


015701 


024220 






MOV 


XRGCUR.Rl 


3589 


072370 


012761 


177706 


000006 




MOV 


• 72,URDCNT(R1) 


3590 


072576 
072576 
072402 


004457 

001560 


070656 






CALL 


SETWRT 


3591 


072404 
072404 


014500 








P»POP 


RO 


3592 


072406 


000420 








BR 


SETEXI 


5593 


072410 








SETKLO: 






5594 


072410 


012705 


004010 






MOV 


•PHYA0R.R3 


3595 


072414 


005001 








CLR 


Rl 


5596 


072416 


012702 


000004 






MOV 


M.R2 


5597 


072422 


004137 


073006 






JSR 


Rl.SETFIL 


5598 


072426 


013701 


024220 






MOV 


XRGCUR.Rl 


5599 


072452 


012761 


177706 


000006 




MOV 


♦-72.WR0CNT(R1) 


5600 


072440 
072440 
072444 


004437 
001560 


070656 






CALL 


SETURT 


5601 


072446 
072446 


014500 








P*POP 


RO 


5602 


072450 








SETEXI: 






5603 


072450 
072450 
072452 


010025 
000207 








RETURN 


RO 



3EQ 74 



ADDRESS COLUMNS 0 7 INITIALIZED? 

DO NEXT GROUP IF YES 

IS THIS THE FIRST GROUP: 

BRANCH IF NOT 

HAVE BASIC ADDRESSES BEEN WRITTEN? 
BRANCH IF NOT 

E SE. POINT TO OUR PHYSICAL ADDRESS 

f:lL IN THE ADDRESS 
uU 00 NEXT COLUMN 

GET OECNET MULTICAST ADDRESS 

INIT GROUP POINTER 

INIT COLUMN TO CORRECT SLOT 

FILL IN THIS ADDRESS 

GET CURRENT XMIT DESCRIPTOR 

WRITE ADDRESSES ONLY 

WRITE THE NEW ADDRESS TABLE INTO QNA 
JSR R4.PREG14 
.WORD SETWRT -ANCHOR 

GET THE RETURNED STATUS 

MOV -(R5).R0 

LEAVE 

GET OUR PHYSICAL ADDRESS 

INIT GROUP POINTER 

INIT ADDRESS COLUMN POINTER 

FILL IN THIS ADDRESS 

GET CURRENT xniT DESCRIPTOR 

WRITE ADDRESSES ONLY 

WRITE THE NEW ADDRESS TA8LE 

JSR R4.PREG14 
.WORD SETWRT -ANCHOR 

GET THE RETURNED STATUS 

MOV (R5).R0 

RETURN 

MOV R0.(R5). 
RTS PC 
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SEO 1'^ 



5t>05 
5606 
5607 
3608 
5609 
3610 
3611 
3612 
5613 
5614 
3615 
3616 
3617 
3618 
3619 
5620 
3621 
3622 
5625 
3624 
3625 
3626 
5627 
5628 
5629 
5650 
3631 
5652 
5655 
5654 
5655 
5636 
5657 
5658 
5659 
3640 
5641 
5642 
5645 
5644 
5645 

5647 
3648 
5649 

5650 
5651 
5652 
5655 
5654 
5655 



3656 
5657 
5656 



.SBTTL SETURT 
FUNCTIONAL DESCRIPTION: 



URITE A SETUP PACKET 



THIS ROUTINE TAKES CARE OF URITING SETUP PACKETS AND VERIFtING THAT 
ALL OF IT OCCURRED OKAY 

CALLING SEQUENCE 

CALL SETURT 

INPUT 

NONE 
IMPLICIT INPUT 
NONE 

OUTPUT 

NONE 
I.tPLICIT OUTPUT 
NONE 

COnPLETION COOES 

NONE 
SIDE EFFECTS 

NONE 
REGISTERS USED 

Rl - MOLDS TRANSMITTED ADDRESS TABLE ADDRESS 

R2 - MOLDS ADDRESS OF PACKET 

R3 - AND ADDRESS OF RECEIVED ADDRESS TABLE 

R4 COUNT OF NUMBER OF BtTES TO CHICK 



DEBUG 



072454 

072454 005200 

072456 015704 024224 

072462 012764 023570 000004 

072470 

072470 012725 000000 

072474 004457 070656 

072500 002526 

072502 005757 050252 

072506 001407 
072510 



SETWRTi 



10»; 



NONE 



INC 
MOV 
MOV 

CALL 



TST 
BEQ 



RO 

XRGNXT.R4 
♦TGTADR.L0ADD(R4) 
XMIT ♦XMTSET 



FATFLG 
201 



URITE NEU ADDRESS TABLE INTO THE QNA 
ASSUME ERROR 
GET DESCRIPIOR 



, TRANSMIT THE PACKET 
MOV 
JSR 
.UORD 

! NON EXISTENT MEMORt ? 
, BRANCH IF NOT 



*XMTSET.(RS^. 
R4.PREG:4 
XMIT ANCHOR 



L6 
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S654 






090P5? 






'Mir Lu 


3660 


072514 














072514 


104456 










072516 


000053 












072520 


065062 












072522 


OOOOOO 










3661 


072524 


000504 






BR 


URTEXI 


3662 


072526 






20*: 






S66w 


072526 
072526 


014501 






PtPQP 


Rl 


3664 


072530 


001405 






BEQ 


30$ 


3665 


072532 
072532 
072554 
072536 
072540 


104456 

000055 
065237 
OOOOOO 






ERRHRO 


4S EH^GAS 


3666 


072542 


000475 






BR 


URTEXI 


3667 


072544 






30>: 






3666 


072544 
072544 

072550 


004437 
003044 


070656 




CALL 


RECEVE 


3669 


072552 


005737 


050252 




TST 


FATFLG 


3670 


072556 


001354 






BNE 


10$ 


3671 


072560 


005700 






TST 


RO 


3672 


072562 


001401 






BEQ 


40$ 


3673 


072564 


000455 






BR 


5ETVAL 


3674 


072566 






40$ : 






3675 


072566 
072566 


014502 






PtPQP 


R2 


3676 


072570 


00 1005 








50$ 


3677 


072572 








ERRHRD 


46 CH^G46 




072572 


104456 










072574 


000056 












072576 


065303 












072600 


OOOOOO 










3678 


072602 


000455 






BR 


URTEXI 


3679 


072604 






sot • 






3680 


072604 


013702 


024226 




MOV 


RRr.NXT OP 


3661 


072610 


032762 


020000 OOOOlO 

WW WW * w 




BIT 


dHRSETP STATIC 


3662 


072616 


001005 






BNE 


60$ 


3663 


072620 








ERRHRO 


47 EH^G47 




072620 


104456 










072622 


000057 












072624 


065366 












072626 


OOOOOO 










3664 


072630 


000433 






BR 


SE TvAL 


3665 


072632 






60* : 


3666 


072632 


016401 


000004 




MOV 


L0ADD(R4) Rl 


3667 


072636 


016404 


000006 




MOV 


URDCNT(R4) R4 


3666 


072642 


005404 






NEC 


R4 


3689 072644 


006304 






ASL 


R4 


3690 








N.M. 


ADO 


012, R4 


3691 


072646 


016203 


000004 




MOV 


L0AD0(R2).RS 


3692 


072652 


120462 


000012 




CMP8 


R4.STAT2CR2) 


3693 


072656 


001405 






BEQ 


70$ 


3694 


072660 








ERRHRO 


48.EMSG48 




072660 


104456 









; CLEAR FATAL ERROR FLAG 
I REPORT TIMEOUT 

TRAP C$ERHRO 
.UORO 43 
.UORO EMSG43 
.UORD 0 

5 LEAVE 

I GET STATUS 

MOV (R5).R1 
: CONTINUE IF OKAY 
J REPORT XMIT ERROR 

TRAP C $ERHRO 
.UORO 45 
.UORO EMSG45 
.UORU 0 
s EXIT SETUP. FAILURE OCCURRED 

; PACKET FOUND? 

JSR R4.PREG14 
.UORO RECEVE ANCHOR 

t NONE EXISTENT MEMORY ERROR? 

; BRANCH IF YES 

: DID AN ERROR OCCUR? 

; BRANCH IF NOT 

; EXIT SETUP. ERROR ALREADY REPORTED 

; UERE ANY PACKETS RECEIVED 

MQV CR51.R2 

! BRANCH IF YES 

i NO PACKET RECEIVED 

TRAP C$ERHRO 
.UORD 46 
.UORO EMSG46 
.UORD 0 



2 GET ADDRESS OF THE PACKET 

} SETUP PACKET? 

; BRANCH IF IT IS 

: REPORT UNEXPECTED PACKET STATUS 

TRAP CtERHRD 
.UORO 47 
. UORD EliSG4 ' 
.UORD 0 

{ EXIT 

J GET XMIT TED ADD^ SS TABLE 
I GET XMIT SIZE 

J CONVERT FROM fUOS COMPLEMENT 
I TURN UORD COUNT TO BYTE COUNT 
: COMPENSATE FOR GARBAGE BYTES 
; GET RECEIVED PACKET 
! IS THE SIZE THE SAME? 
; BRANCH IF IT IS 
; BYTE COUNT ERROR 

TRAP CSERmRD 
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UO T 


WKi 1 C 




parKP T 






WWWWOU 








WOJ^^O 








AAAAAA 

wwwwww 






A70^7A 


WUU4X3 






A 7 7 O 






507 f 








oof O 


A 7 3^ 7 3 


A/WL3AA 
WWOcW^ 






A7 7 A 








A70i^7A 
U f CO f * 


WcclcS 






A 7 7 
O 'CO fO 


WW14W3 




I 7AO 

S rOe 


A75 7AA 








A707AA 
O f C 'WW 


1 AAA^i^ 
IW^^DO 






A707A0 
W fC fWc 


OAAAKA 






A737AA 
W f C fW# 


W031^ 1 






A707AiL 
O f C r Wo 


WWWWWW 




J r U3 


A7071 A 
W f C ' IW 


WWW*W3 






A7071 O 
W rc r Ic 








A7371 3 
W rc r Ic 


AA^XAA 
WW30W^ 




* 7/^ 


W f c » I* 


AA1 Xi>7 




»7A7 


A7371 
W rc ' lO 


WW3WWW 






A7073A 
W f C f C W 






V7AO 


A75 70A 
W ' c ' CW 








A7373rt 
W 1 c ' cW 


WlC r C3 


03AP3f> 
\iC**CCO 




W f C ' C* 


WlC • C3 


AAAAA1 
VNAJWl 




A737Xft 
W r c ' 3W 


WW*^3 1 


W r VTODO 




A737TA 
W f C f 5* 


A/WA^A 
WWO*3W 




X71 rt 


Wr^ rAO 






X71 1 


A707 
W f C f So 


A1 X7AA 
W13 f W^ 


A3A33A 
Wc^cc^ 




W f e f *c 


A1 07f^ 
WlC * O** 


WC^ J f 


d r Id 


W f C »30 


WWjWO^ 


wwwwww 




A737«IA 
W ' C '3* 


WW3WO* 


AAAA1 A 
WWWWIW 


V71 <« 


A707^A 
U f C f OW 


WW3WD4 


WWWWlc 


<71 & 


A7 37£^ 

W f e f o** 








w f c fo^ 


A1 373«t 
WlC rc3 


A3A33A 
Wc^CC'' 




n7377A 
SJ f C f r W 


A1 373^ 
WlC 'C9 


AAAAAA 
WWWWWW 




W rc f 


AAAA V7 


W r W030 










5717 


075002 








075002 


010025 






075004 


00020? 





BR SETVAL 

70»: 

:i N.n. SUB »12.R4 

ASR R4 

80*: 

CMP (R11».(R5)» 

BEQ 901 
ERRHRO 44,EnSG44 



90»; 



SETVAL: 



URTEXI; 



000004 



BR SETVAL 

DEC R4 

BNE 80* 

CLR RO 

CALL GETRNX •l.MRGNXT 



MOV XRGNXT.R4 

MOV «XRG001 , L0A00CR4 ) 

CLR FLAG(R4) 

CLR STATl(R4) 

CLR STAT2(R4) 

CALL GETXNX «0.«XRGNXT 



RETURN RO 



SEQ < 7 



I EXIT 



. WORD 48 

. WORD EMSG4e 

.UORD 0 



I REMOVE GARBAGE BYTE COUNT 

, TURN BYTE COUNT INTO UORD COUNT 

; DOES XMITTED - RECEIVED? 
I BRANCH If- NOT 
, COMPARE ERROR 



; LEAvc 



TRAP 
.UORD 
.UORD 
.UORD 



C»ERMPD 
44 

EMSG44 

0 



OECRtH»^NT T'£ BYTE COUNT 
CHECK NEXT ADDRESS 
SET SUCCESS CODE IN RO 
REVALIDATE THE DESCRIPTOR 
UPDATE NEXT AND PREVIOUS PACKET ADDRESS 
MOV •RRGNXT.CRS)^ 
MOV ♦l.CRS). 
JSR R4.PREG14 
.WORD GETRNX-ANCHOR 

i GET TRANSMIT PACKET ADORESS AGAIN 

t RESET ADDRESS 

i REINIT THE DESCRIPTOR 



GET NEXT XMIT BUFFER 
MOV 
MOV 
JSR 
.UORD 

RETURN WITH STATUS 
MOV 
RTS 



♦XRGNXT.CR5). 
•0.CR5)* 
R4.PREG14 
GETXNX ANCHOR 

R0.(R5). 
PC 



N6 
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SEQ 78 



3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3726 
3729 
37SO 
3731 
3732 
3733 
3754 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3746 
3749 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 
3756 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3766 
5769 
5770 
5771 
5772 
5775 
5774 
5775 



.SBTTL SETriL - TILL AN ADDRESS SLOT IN SETUP TABLE 
'functional DESCRIPTION: 
THIS 

BEGIN 

INIT THE ROW POINTER 

DO UNTIL 6 ADDRESS BYTES OF THE ADDRESS ARE WRITTEN 
ADO ROW NUMBER TO INDEX 
ADD COLUMN NUMBER TO INDEX 
ADD TABLE ADDRESS TO INDEX 
STUFF THE ADDRESS BYTE IN 

ENDDO 

BUMP ROW POINTER 

STUFF A ZERO INTO THIS BYTE (M8Z) 
BUMP ROW POINTER 

STUFF A ZERO INTO THIS BYTE (MBZ) 

RETURN FROM SUB 

END 

CALLING SEQUENCE 

JSR PC.SETFIL 

INPUT 

Rl - GROUP POINTER 

R2 - COLUMN POINTER 

R5 - POINTER TO NI ADDRESS 

R4 - ROW POINTER 

IMPLICIT INPUT 

NONE 

OUTPUT 

NONE 
IMPLICIT OUTPUT 
NONE 

COMPLETION CODES 

NONE 
SIDE EFFECTS 

NONE 
REGISTERS USED 

Rl INDEX 

R2 ADDRESS COLUMN POINTER 

R3 POINTS TO GROUPS OF ADDRESSES 
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SEO 



S7?b 
5777 
5775 
5779 
3760 
3701 
5762 
5765 
5764 
5765 
5766 
5767 
5766 

5769 
3790 
3791 
3792 
5795 
5794 
5795 
5796 
5797 
5798 
3799 
5600 
5601 
5602 
5603 

3604 



075006 
075006 
073012 
075014 
073016 
073016 
075020 
075022 

075026 
075026 
075050 
075054 
075056 
073040 
073042 
073042 
075044 
075050 
075054 
073060 
073060 
073062 



012704 
060204 
061604 

010146 
010401 
062701 



112514 
062704 
020401 
005001 
000772 

111314 
112714 
062704 
112714 

012601 
000201 



R4 



ADDRESS ROW POINTER 



DEBUG 



023570 



000050 



000010 



000000 
000010 
000000 



NONE 

INIT THE ROW POINTER 
DO WHILE 6 ADDRESS BYTES Of THE 
SETriL: 

MOV «TGTADR.R4 
ADD R2.R4 
ADO (SP),R4 
PUSH Rl 



10$; 



20t: 



MOV 
ADO 



MOVB 

ADD 

CMP 

BGT 

BR 

MOVB 

MOVB 

ADD 

MOVB 

POP 

RTS 



R4.R1 
•40. .Rl 



(R5)..(R4) 
•6. .R4 
R4,R1 
20 1 

lot 

(R3),(R4) 
•0,(R4) 
•8. .R4 
•0.(R4) 
Rl 

Rl 



ADDRESS ARE TO BE WRITTEN 

SET ROW POINTER TO DESTINATION TA8LE 

ADO COLUMN TO IT 

ADD SAVED GROUP TO IT 

SAVE RETURN ADDRESS 

MOV Rl.-(SP) 
INIT LIMIT TO CURRENT ADDRESS 
UPPER LIMIT (5 AORS BrTES • 6 BrTE OFFSET TO 
NEXT ROW) 

STUTF THE ADDRESS BtTE IN 

ELSE. POINT TO NEXT ROW IN THE COLUMN 

HAVE ALL ADDRESSES BEEN WRITTEN 

BRANCH IF TES 

AND STUFF IT IN 

STASH LAST ADDRESS BrTE 
NEXT BYTE ^«Z 
P0IN1 TO NEXT BYTE 
NEXT BYTE mZ 
RESTORE RETURN ADDRESS 

MOV (SP)..R1 
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SEQ 90 



5606 
5«07 
5808 
5809 
5610 
5611 
5612 
5615 
5814 
5615 
5616 
5617 
5616 
581<» 
5620 
5621 
5622 
5625 
5624 
5625 
5626 
5627 
5628 
5629 
S650 
5651 
5652 
5655 
5654 
5655 
5656 
S657 
S656 
565<» 
5640 
5641 
5642 
5845 
5644 
3645 
5646 
3647 
5646 
3649 
3650 
3651 
3652 
3655 
3654 
3655 
3656 
5857 
5656 
3659 
5660 
5661 
5662 



073064 
075064 
073066 
073070 
073074 
073100 
075104 
073106 
075112 
073114 
073114 
073120 
075122 
075126 
075154 



.SBTTL QNA INTERRUPT SERVICE ROUTINE 
FUNCTIONAL DESCRIPTION: 

THIS IS THE INTERRUPT SERVICE ROUTINE 
CALLING SEQUENCE 

NONE 

INPUT 

NONE 
IMPLICIT INPUT 
NONE 

OUTPUT 

NONE 
IMPLICIT OUTPUT 
NONE 

COMPLETION CODES 

NONE 
SIDE EFFECTS 

NONE 
REGISTERS USED 

NONE 

DEBUG 

NONE 



010146 
010546 
015701 
016105 
032703 
001405 
005257 
000436 

032705 
001425 
005237 
052737 
015761 



QNAISR: 



047772 
000016 
000004 

050252 



100000 

050256 
100000 
050246 



10$; 



050246 
000016 



MOV Rl.-(SP) 

MOV R5.-(SP) 

MOV QNA ADO. Rl 

MOV CSR(R1).R5 

BIT «MNXM.R3 

BEQ 101 

INC FATFLG 

BR 401 

BIT AMRCVIN.RS 

BEQ 20$ 

INC NIRCNT 

BIS •MRCVIN.CSRBUF 

MOV CSR8UF,CSR(Ri; 



I SAVE Rl 

' GET QNA ADDRESS 

AND ITS CSR CONTENTS 
INTERRUPT RESULT OF MEMORt TlMtOuT? 

SET FLAG 
CONTINUE 

RECV INTERRUPT ?? 
NO 

tes. set flag 

set receiver done bit in butfered c<>r 
urite it to rearm interrupts 



5069 


079142 


042797 


XOOOOQ 


050246 




BIC 




/\7V« C/\ 

079190 


AVI Tnv 

092709 


000040 






D T T 




VI Ol 


AA1 AA^ 








OCU 




A7 V 1 


At 0 7At 


0c4^0 






nuv 


VAX.*? 


wr9164 




OOOOOo 






LLH 


9060 


079170 








^Ol : 






A7V1 7A 

O f 91 '0 


AV^7AV 

092 '09 


UUOcOO 






D T T 
Hi 1 


SO fv 


A71« 7^ 


AAf ^A V 








OCU 


do ■ I 


A7'1 7& 


WOV9 1 










■50 » e 


A 7 * 3A O 


AAAAAA 








no 

OH 




U < 












do 


A7 YOAA 














07^31 ft 
v ' dc XV 












3676 


075210 


005257 


050270 






INC 


5877 


075214 








50»: 




56 7S 


075214 


012605 








MOV 


5679 


075216 


012601 








MOV 


5660 


075220 


000002 








RTI 


S661 















15: 12 
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SEQ 61 



•mcviN.csRBur 

•«INVRC,R3 
20 1 

«RRINC.L0RCV(R1) 
HIRCV(Rl) 

CMXMTIN.RS 
50 » 
XFLAG 
50* 

BCOUNT 

ERRFLG 

(SP)».R3 
CSP)..Rl 



CLEAR THE BIT 
RECEIVE LIST INVALID? 
NO 

SET LOU ADDRESS OF RINGS 
CLEAR UPPER ADDRESS BITS 

TRANSMIT INTERRUPT ?? 
NO 

YES, INDICATE THAT XMIT HAS OCCURRED 
LEAVE 

i ELSE. NONSENSE INTERRUPT 



J RESTORE REGISTERS 
I RESTORE ;*EGISTERS 
: AUF UIEDERSEHEN 



CVNIAAO OeONA NI EXERCISER OIAG MACRO M1200 
XHIT TRANSMIT QNA PACKETS 
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SEQ 82 



3885 
S884 

S885 
3806 
5887 
3888 
5889 
5890 
3891 
5892 
3893 
5894 
3895 
5896 
5897 
5898 
5899 
5900 
5901 
5902 
3905 
5904 
5905 
5906 
5907 
5908 
5909 
5910 
5911 
5912 
5915 
5914 
5915 
5916 
5917 
5918 
5919 
3920 
5921 
5922 
5925 
5924 
5925 
3926 
5927 
5928 
5929 
5930 
3951 
5952 
5955 
5934 
5955 
5956 
5957 
5956 
5959 



.SBTTL XMIT TRANSMIT QNA PACKETS 



075222 
075222 
075226 
075226 
075254 
075242 
075242 
075246 
075250 
075252 
075256 
073260 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE SETS UP THE TRANSMIT DESCRIPTOR RING ENTRIES AND WRITES 
THE RING ADDRESS INTO THE TRANSMIT LOW AND HIGH ADDRESS REGISTERS TO 
START TRANSMISSION. 



CALLING SEQUENCE 
CALL 



XMIT 
P»POP 



INPUT 

NONE 
IMPLICIT INPUT 
NONE 

OUTPUT 

PI - STATUS - 
IMPLICIT OUTPUT 
NONE 

COMPLETION CODES 

0 ■ SUCCESS 
-1 • FAILURE 

SlOe EFFECTS 

NONE 

REGISTERS USED 



»XMTSET OR «XMTDAT 
PI 



» XMTSET • SETUP. XMTOAT • DATA 



0 - SUCCESS. -I FOR FAILURE 



DEBUG 



005057 050274 

012757 000020 002402 

012737 000020 002404 

015704 024220 

005714 

001405 

005764 000010 
001002 

000157 075650 



XMITj 
101: 

201; 



NONE 



CLR 

MOV 
MOV 

MOV 
TST 
BEQ 
TST 
BNE 
JMP 



RETRYS 

«16. .LSRTRY 
«16. .NCRTRY 

XRGCUR.R4 
(R4) 
50 » 

STAT1CR4) 
50 f 
1601 



I SET CARRIER LOSS RETRY COUNT 
I SET NO CARRIER RETRY COUNT 

I MOVE RING ENTRY LOCATION INTO R4 

J MAKE SURE WE OWN THIS 

t BRANCH IF WE DO 

J ELSE. SEE IF STATUS IS WRITTEN 

s IF YES. CONTINUE 

; ELSE REPORT THAT QNA STILLS OWNs IT 



CVNIAAO OEQNA NI EXERCISER OIAG MACRO M1200 22 MAR 84 
xniT TRANSHIT QNA PACKETS 



S940 


073264 








50$ ; 




3941 


073264 
073264 


014501 








PJPQP 


3942 


073266 


001007 








BNE 


3943 


073270 


012764 


130000 


000002 




MOV 


3944 


073276 


012764 


025570 


000004 




MOV 


3945 


073304 


000451 








BR 


3946 


073306 








40* : 




3947 


073306 


005757 


005202 






TST 


3948 


073312 


001020 








BNE 


3949 


073314 


015764 


050552 


000006 




MOV 


3950 


073322 


006264 


000006 






ASR 


3951 


073326 


005464 


000006 






NEC 


3952 


073332 


016402 


000004 






MOV 


3953 


073336 


062702 


000006 






ADD 


3954 


073542 


012705 


004010 






MOV 


3955 


073346 


012522 








MOV 


3956 


073350 


012322 








MOV 


3957 


073352 


012522 








MOV 


3958 


073554 








451: 




3959 


075554 


012764 


120000 


000002 




MOV 


3960 


075562 


012764 


024574 


000004 




MOV 


3961 


075570 








50f : 




3962 


075570 


005064 


000000 






CLR 


3963 


075574 


005064 


000010 






CLR 


3964 


075400 


005064 


000012 






CLR 


3965 


075404 


012757 


000001 


050260 




MOV 


3966 


075412 


015705 


047772 






MOV 


3967 


075416 


012757 


001150 


005760 




MOV 


3968 


075424 








60$: 




3969 


075424 


052765 


000020 


000016 




BIT 


3970 


075452 


001004 








BNE 


3971 


075454 


005737 


005760 






TST 


3972 


075440 


001571 








BNE 


3973 


075442 


000514 








BR 


3974 


075444 








70»: 




3975 


075444 


010465 


000010 






MOV 


3976 


075450 


005065 


000012 






CLR 


3977 


075454 


012701 


003760 






MOV 


3978 


075460 


012711 


001130 






MOV 


3979 


075464 








80$: 




3980 


075464 


005757 


050260 






TST 


3981 


075470 


001407 








BEQ 


3982 


073472 


005757 


050252 






TST 


3983 


075476 


001401 








BEQ 


3984 


075500 


000503 








BR 


3985 


075502 








901: 




3986 


A^ A'^ 

073502 


005711 








TST 


3987 


073504 


001367 








BNE 


3988 


075506 


AAA A ^ A 

000472 








BR 












iw* : 




3990 


075510 


052757 


000200 


050246 




BIS 


3991 


075516 


015763 


050246 


000016 




MOV 


3992 


075524 


042757 


000200 


050246 




BIC 


3993 


075532 


005764 


000010 






TST 


3994 


075556 


001444 








BEQ 


3995 


075540 


052764 


010000 


000002 




BIT 



F / 
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SEQ 83 



Rl I GET XMIT TYPE 

MOV -(R5).R1 
40* I BRANCH ir NOT A SETUP PACKET 

«MVALID!ME0M!MXSETP.0ESC(R4) i SET DESCRIPTOR BITS 
*TGTA0R,L0ADD(R4) i SET BUFFER ADDRESS 

50$ 



RSPFLG 
45* 

BUFLEN.URDCNT(R4) 

URDCNT(R4) 

URDCNT(R4) 

L0A0D(R4).R2 

«6.R2 

•PHY ADR. R3 
CR5)».(R2)» 
(R5)*.(R2)» 
(R5)».(R2)* 



I ARE WE IN LISTEN/RESPOND MODE? 

I BRANCH IF YES. JUST VALIDATE AND XMIT 

I BUT LENGTH TO FIRST WORD OF NEXT RING 

I TURN IT INTO A WORD COUNT 

J TWO'S COMPLEMENT THE COUNT 

J GET ADDRESS OF BUFFER 

, POINT TO SOURCE ADDRESS FIELD 

I POINT TO OUR PHYSICAL ADDRESS 

; FILL IN FIRST TWO ADDRESS BYTES 

t AND NEXT TWO ADDRESS BYTES 

t AND NEXT TWO ADDRESS BYTES 



•MVAL ID • MEOM . DESCC R4 ) 
•XRG001.L0ADD(R4) 



{ SET VALID BIT 

» SET BUFFER ADDRESS 



FLAG(R4) 

STAT1(R4) 

STAT2CR4) 

•l.XFLAG 

QNAA00.R3 

•1150.TIMER2 



I CLEAR FLAG WORD 
; CLEAR STATUS WORD 1 
: CLEAR STATUS WORD 2 
J SET TRANSMIT FLAG 
: GET DEVICE ADDRESS 
; SET TIMER 



«MINVXM,CSR(R5) 
70$ 

TIMER2 

60$ 

180$ 



; IS XMIT LIST INVALID? 
I YES. CONTINUE 
: TIMEOUT YET 
: NO 

: TIMEOUT. REPORT ERROR AND LEAVE 



R4.L0XMT(R3) 
HIXMT(R3) 
•TIMER2.R1 
•1130, (Rl) 



LOW ADDRESS OF XMIT BUFFER 
START TRANSMISSION 

SET UP TO WAIT FOR TRANSMIT TO COMPLETE 



XFLAG 

100* 

FATFLG 

90* 

190* 



SEE IF TRANSMIT DONE BIT SET 

IF SET. SKIP WAIT LOOP 
NON EXISTENT MEMORY? 
BRANCH IF NOT 
LEAVE ROUTINE 



(Rl) 

80* 

180* 



{ ELSE, SEE IF TIMEOUT YET 
I NO. WAIT 
J YES. EXIT 



♦MXMTIN.CSRBUF 

CSRBUF.CSR(R3) 

•MXMTIN.CSRBUF 

STAT1(R4) 

160* 

•MXSETP,DESC(n4) 



» SET XMIT DONE BIT IN BUFFERED CSR 

, REARM XMIT INTERRUPTS 

J CLEAR THE BIT IN BUFFERED CSR 

i SEE WHO OWNS THIS ENTRY 

; IF QNA STILL OWNS THIS. SOMETHING IS WRONG 

I SETUP PACKET? 
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5996 


075S46 


001006 








BNE 


5997 


075550 










CALL 




075550 


012725 


000001 










073SS4 


010425 












073SS6 


004437 


070656 










073562 


005736 










3998 


073564 








105$: 




5999 


073564 


032764 


040000 


000010 




BIT 


4000 


073572 


001011 








BNE 


4001 


073574 








1101: 




4002 


073574 










CALL 




073574 


012725 


024220 










073600 


012725 


000000 










073604 


004437 


070656 










073610 


006534 










4003 


073612 


005005 








CLR 


4004 


073614 


000457 








BP 


4005 


073616 








120t: 




4006 


073616 


032764 


016000 


000010 




BIT 


4007 


073624 


001763 








BEQ 


4008 


073626 








140$: 




4009 


073626 


005237 


050274 






INC 


4010 


073652 


022737 


000005 


050274 




CMP 


4011 


073640 


100001 








BPL 


4012 


073642 


000754 








BR 


4013 


073644 








150$: 




4014 


073644 


000137 


073370 






JMP 


4015 


073650 








160$: 




4016 


073650 










ERRDF 




073650 


104455 












073652 


000012 












073654 


063670 












073656 


070506 










4017 


073660 


000415 








BR 


4018 


073662 








170$: 




4019 


073662 










ERRDT 




073662 


104455 












073664 


000014 












073666 


063670 












073670 


070306 










4020 


073672 


000406 








BR 


4021 


073674 








180$: 




4022 


073674 


005257 


050272 






INC 


4025 


073700 










ERRHRO 




073700 


104456 












075702 


000010 












075704 


065605 












075706 


070506 











105$ 

BMPCNT R4 , OBMPXHT 



«HXERRS.STAT1(R4) 
120$ 

GETXNX »0.«XRGCUR 



R3 
200$ 

«nABORT ! MLOSS ! MNOCAR . 
110$ 

RETRYS 
•5.RETRYS 
150$ 
110$ 

50$ 

lO.EMSGlO.ERRl 
190$ 

12.EnSG10.ERRl 

190$ 

TIMOUT 

S.EMSGOe.ERRl 



SEQ 64 



J BRANCH ir IT IS. WE DON'T COUNT SETijP STATIST! 
I ELSE, GO UPDATE THE COUNTERS 

MOV OBMPXMT.CRS). 

MOV R4.(Rb)» 

JSR R4.PREG14 

. UORD BMPCNT ■ ANCHOR 

: SEE ir ANY ERRORS 

I IF YES. BRANCH AND TAKE CARE Of THEM 

i UPDATE 'TRANSMIT RING CURREN^' POINTER 
MOV 
MOV 
JSR 
.UORD 

I INDICATE SUCCESS 
i RETURN 



•XRGCUR.(R5)* 

•0.(R5). 

R4.PREG14 

GETXNX -ANCHOR 



STAT1(R4) 8 UAS MESSAGE STILL SENT? 
I BRANCH IF YES. 00 NEXT ONE 

t LET'S TRY IT AGAIN. KEEP COUNT OF THEM 

; HAVE UE RETRIED THREE TIMES YET? 

; IF NOT. THEN LETS RETRANSMIT 

: ELSE. CLEAN UP AND LEAVE 

t TRY AGAIN 

; TRANSMIT RING BOOKKEEPING ERROR 

TRAP CtEROF 
.UORD 10 
.UORD EMSGIO 
.UORD ERRl 



BOOKKEEPING ERROR. XRGNXT SHOULD - XRCCUR 

TRAP C$ERDF 
.UORD 12 
.UORD EMSGIO 
.UORD ERRl 



{ REPORT ERROR 



TRAP C$ERHRO 

.UORD 8 

.UORD EMSG06 

.WORD ERRl 
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4024 

4025 
4026 
4027 
4026 
4029 
4030 
4031 



073710 
075710 
075714 
073714 
073720 
075724 
073750 
073754 
073754 
075756 



012703 177777 

005064 000000 

005064 000010 

005064 000012 

005064 000002 

010325 
000207 



190$: 
200$: 



MOV 

CLR 
CLR 
CLR 
CLR 

RETURN 



♦ 1.R3 

FLAGCRn) 

STAT1(R4) 

STAT2(R4) 

0ESC(R4) 

R3 



ERROR INDICATOR 

CLEAR FLAG UORO 
CLEAR STATUS UORO 1 
CLEAR STATUS UQRO 2 
INVALIDATE THE DESCRIPTOR 
RETURN 

MOV R3.(R5) 
RTS PC 
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SEQ 86 



4033 

4054 

4055 

4056 

405' 

40S8 

4059 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

404 7 

4048 

4049 

4050 

4051 

4052 

4055 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4065 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

40«4 

4085 

4086 

4087 

4088 

4089 



.SBTTL RECEVE RECEIVE QNA RING BUFFERS 



FUNCTIONAL DESCRIPTION! 

THIS ROUTINE TAKES INCOMING DATA BUFFERS FROM THE QNA AND CHECK FOR 
ERRORS. THIS PROCESS CONTINUES FOR ALL COMPLETED BUFFERS 

CALLING SEQUENCE 



CALL 
PIPOP 



RECEVE 
PI 



INPUT 

NONE 
IMPLICIT INPUT 
NONE 

OUTPUT 

NUMBER OF PACKETS PROCESSED By THIS ROUTINE 
IMPLICIT OUTPUT 
NONE 

COMPLETION COOES 

NONE 
SIDE EFFECTS 

NONE 
REGISTERS USED 

NONE 

DEBUG 

NONE 



075740 
075740 
073742 
073744 
075744 
075750 
075752 
075756 
075756 
075762 
075766 
075770 



005000 
005002 

005757 050256 
001002 

0001S7 074626 

015704 024222 

016401 000010 
001002 

000157 074606 



RECEVE : 



lOt: 



20t: 



CLR RO 

CLR R2 

TST NIRCNT 

BNE 20$ 

JMP 1801 

MOV RRGCUR.R4 

MOV STAT1(R4).RI 

BNE 30 » 

JMP 160* 



; SlT status TO SUCCESS 

, CLEAR PACKETS HANDLED COUNTER 

J SEE IF ANT PACKETS TO RECEIVE 
J IF YES. CONTINUF 
J ELSE. EXIT 

MOVE CURRENT RCV RING POINTER TO R4 
MOVE STATUS OF PACKET TO Rl 
BRANCH IF UE OWN IT 
STILL OWNED B» QNA. ERRO« 



J7 
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RECEVE RECEIVE ONA RING BUFFERS 



4090 


075774 








501: 






4091 


075774 


052764 


020000 


000010 




BIT 


♦MRSETP.STAT1(R4) 


4092 


074002 


001402 








BEQ 


52* 


4095 


074004 


000157 


074560 






JMP 


150* 


4094 


074010 








52* : 






4095 


074010 
074010 
074014 
074016 
074022 


012725 
010425 
004457 

005756 


000000 
070656 






CALL 


BMPCNT R4 . ffBMPRCV 


4096 


074024 


016405 


000004 






MOV 


LOA00(R4 ) ,R5 


4097 


074050 


005757 


002200 






TST 


BLOFLG 


4098 


074054 


001055 








BNE 


521* 


4099 


074056 


025715 


004010 






CMP 


PHY ADR. (RS) 


4100 


074042 


001010 








BNE 


550* 


4101 


074044 


025765 


00401? 


000002 




CMP 


PHYADR»2,2(R5) 


4102 


074052 


001004 








BNE 


550* 


4105 


074054 


025765 


004014 


000004 




CMP 


PHVA0R*4.4(R5) 


4104 


074062 


001411 








BEQ 


580* 


4105 
















4106 


074064 








550»: 






4107 


074064 


052701 


004000 






BIT 


♦MRUNT ,R1 


4106 


074070 


001057 








BNE 


522* 


4109 


074072 
074072 
074074 
074076 
074100 


104456 
000075 
066412 
000000 








ERRHRD 


61.EMSG61 


4110 


074102 


000157 


074544 






JMP 


150* 


4111 
















4112 


074106 








580*: 






4115 


074106 


052701 


004000 






BIT 


•MRUNT .Rl 


4114 


074112 


001451 








BEQ 


58* 


4115 


074114 
074114 
074116 
074120 
074122 


104456 

000066 
065775 
000000 








ERRHRD 


54.EMSG54 


4116 


074124 


000157 


074544 






JMP 


150* 


4117 
















4118 


074150 








5211: 






4119 


074150 


025715 


004052 






CMP 


MCSTAD,(R5) 


4120 


074154 


001011 








BNE 


55* 


4121 


074156 


025765 


004054 


000002 




CMP 


MCSTAD»2.2(R5) 


4122 


074144 


001005 








BNE 


55* 


4125 


074146 


025765 


004056 


000004 




CMP 


MCSTA0»4,4{R5) 


4124 


074154 


OOlOOl 








BNE 


55* 


4125 


074156 


000427 








BR 


58* 


4126 


074160 








55»: 






4127 


074160 










ERRhRD 


68 , EMSG68 




y low 














074162 


000104 














074164 


067121 














074166 


000000 












4128 
















4129 


074170 








5221: 






4150 


074 1 70 


010405 








MOV 


R4.RS 



SEQ 87 



I WAS A SETUP PACKET RECEIVED? 
I BRANCH IF NOT 
» ELSE. LEAVE 

J UPDATE COUNTERS TOR RECEIVE 



•BMPRCv.CR5>. 
R4.CR5). 
R4.PREG14 
BMPCNT ANCHOR 



MOV 
MOV 
JSR 
.UORO 

; MOVE BUFFER ADDRESS INTO R5 
I ARE WE IN BUILD MODE? 
; BRANCH IF UE ARE 

I CHECK TO SEE IF THE DESTINATION ADDRESS 

I BRANCH IF NOT 

t CHECK NEXT WORD OF ADDRESS 

: BRANCH IF NOT OURS 

i CHECK FINAL ADDRESS WORD 

; BRANCH IF EVERYTHING IS OKAr 



IS (>« 



ii N.M. 

J RUNT PACKET 

; IF YES. THROW OUT THE PACKET. 

: REPORT UNKNOWN RECEIVER ERROR 

TRAP 
.WORD 
.WORD 
.WORD 

: CONTINUE 

N.M. 
RUNT PACKET 
BRANCH IF NOT 
: REPORT THE ERROR 



CtER»«0 
61 

EMSG61 
0 



: CONTINUE 



TRAP C*ER»«*0 

.WORD 54 

. WORD EMSG54 

.WORD 0 



J SEE IF CONSOLE ID MULITCAST IS DESTINATION 

5 IF NOT. REPORT ERROR 

I SEE IF CONSOLE ID MULITCAST IS DESTINATION 

; IF NOT. REPORT ERROR 

J SEE IF CONSOLE ID MULITCAS^ IS DESTINATION 

; IF NOT. REPORT ERROR 

J ITS A OKAY, MOVE ON 



: ELSE. REPORT THE ERROR 



TRAP CJfcRHRO 

.WORD 68 

. WORD E»«Stje>'* 

.WORD 0 



I GET DESCRIPTOR ADDRESS 



•FERS 



4131 
4132 
4133 
4134 
4135 
4136 
4137 
4136 
4139 
4140 

4141 
4142 
4143 
4144 

4145 
4146 
4147 
4146 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4156 



4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 



4167 
4166 
4169 



4170 
4171 
4172 
4173 
4174 
4175 



074172 
074176 
074200 
074204 
074206 
074206 
074212 
074212 
074216 
074220 

074226 
074230 
074234 
074234 
074236 
074236 
074244 
074246 
074252 
074254 
074260 
074262 
074266 
074270 
074272 
074272 
074276 
074300 
074300 
074302 
074304 
074306 
074310 
074312 
074314 
074314 
074322 
074324 
074324 
074332 
074332 
074336 
074342 
074346 
074350 
074354 
074356 
074356 
074362 
074366 
074372 
074374 
074374 
074400 
074402 
074402 
074406 



023703 
001003 
013703 
000402 



024232 
0^4216 



062703 000014 
000010 

000001 050256 



36t 
371 



005763 
001406 
022737 



001002 
005237 

000433 

026337 
001023 
062703 
062303 
022713 
001004 
005737 
001416 
000444 

022713 
001441 

104456 
000064 
065633 
000000 
005200 
000545 

026337 
001427 



050256 

000014 050306 
000016 
000002 
003202 

000001 



37b»; 
36»: 



45»i 



l< 7 
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CMP RRGLST.R3 

BNE 36 » 

MOV RRGSRT,R3 

BR 37» 

ADD •14,R3 

TST STAT1(R3) 

BEQ 375* 

CMP OLNIRCNT 

BNE 575» 

INC NIRCNT 

BR 501 

CMP PR0T0T(R3).PR0T00 

BNE 40* 

ADO ♦fASKlP.R3 

ADD (R3)*.R3 

CMP ♦F0RUR0.(R3) 

BNE 45* 

TST RSPfLG 

BEQ 50* 

BR 60* 

CMP •REPLr.(R3) 

BEQ 60* 
ERRHRO 52.EMSG52 



000014 050310 



40*: 



50*: 



012764 000001 000002 



012725 
012725 
004437 
006450 
020437 
001007 

012725 
012725 
004437 
006450 

005337 
000510 

032701 
001462 



024222 
000000 
070656 

024226 



024226 
000001 
070656 



050256 
040000 



55*1 
60*: 



INC RO 

BR 160* 

CMP PR0T0T(R3).PR0T02 

BEQ 60* 

MOV •1.0ESC(R4) 

CALL GETRNX ♦0.»ftRGCUR 



CMP R4.RRGNXT 
BNE 55* 

CALL GETRNX •l.^RRGNXT 



DEC NIRCNT 

BR 170* 

BIT »MRERRS.R1 

BEQ 140* 



SEQ A6 



IS THIS THE LAST DESCRIPTOR? 
BRANCH IF NOT 

OTHERWISE. GET ADDRESS Of FIRST DESCRIPTOR 



, POINT TO NEXT DESCRIPTOR 

; HAS THE NEXT DESCRIPTOR BEEN USED? 
: BRANCH IF NOT 

; IF IT IS USED. DO WE RECORD ONLt THE BOGUS RECEIVE 

, BRANCH IF THE GOOD AND THE BAD MAS BEEN RfCOROFO 
I ELSE. BUMP COUNT SO U£ DON T MISS GOOD PACES' 

; THROW THE PACKET OUT 

s SEE IF IT IS A LOOP SERVER TYPE CODE 

J IF NOT. CONT. 

s POINT TO SKIP COUNT 

; ADD SKIP COUNT TO DATA POINTER 

: NEED TO FORWARD MESSAGE? 

s IF NOT. MOVE ON 

: ELSE. ARE WE ACTING AS A RE SPONGER' 

J IF NOT. JUST THROW IT OUT 

; ELSE. GIVE IT TO THE CALLING R(XJTINE 

: ELSE. IS THIS A REPLT MESSAGE 

s BRANCH IF TES 

! ELSE REPORT ERROR 

TRAP C»ERHRD 

.WORD 52 

.WORD EMSG52 
WORD 0 
; PUT FAILURE STATUS INTO RC 
! LEAVE 

! ELSE CHECK FOR CONSOLE TYPE CODE 
J IF OK. CONT. 

: MARK IT AS A THROW AWAY 
; AND THROW IT OUT 

MOV «RRGCUR.(R5). 

MOV •0.(R5)» 

JSR R4.PREG14 

.WORD GETRNX -ANCHOR 
: IS THE CURRENT POINTER SAME AS NEXT? 
i BRANCH IF NOT 

J ELSE. UPDATE NEXT POINTER AS WELL 

MOV #RHGNXT.(R5)» 
MOV «1.(R5). 
JSR R4.PREG14 
.WORD GETRNX ANChOR 

J DECREMENT RECEIVE COUNTER 

; EXIT 

I SEE IF ANY ERRORS 

I BRANCH IF NOT 
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SEO 89 



4176 
4177 
4178 



4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 



4187 
4188 
4189 
4190 
4191 



4192 
4193 
4194 
4195 



4196 
4197 
4198 
4199 
4200 



4201 
4202 
4203 



4204 
4205 
4206 
4207 
4206 



074410 
074414 
074416 
074416 
074420 
074422 
074424 
074426 

074430 
074430 
074434 
074436 
074442 
074444 
074444 
074446 
074450 
074452 
074454 
074456 
074456 
074462 
074464 
074464 
074466 
074470 
074472 
074474 
074474 
074500 
074502 
074502 
074504 
074506 
074510 
074512 
074514 
074514 
074520 
074522 
074522 
074524 
074526 
074530 
074532 
074534 
074534 
074534 
074536 
074540 
074542 
074544 
074544 
074550 
074552 
074554 



032701 
001005 

104456 

000065 
065721 
000000 
000446 



032701 
001447 

032701 
001405 

104456 

000067 
066063 
000000 
000433 

032701 
001414 

104456 

000070 
066116 
000000 

032701 
001405 

104456 
000071 
066152 
000000 
000414 

032701 
001405 

104456 
000074 
066344 
000000 
000404 



104456 

000075 
066412 
000000 

005237 
005200 
000664 



034007 



010000 
000001 



80t: 



000002 



90»: 



000004 



lOOf : 



000010 



110*: 



050276 



1201: 



150$! 



140$: 



BIT 
BNE 

ERRHRO 



BR 



BIT 
BEQ 
BIT 
BEQ 
ERRHRO 



BR 

BIT 
BEQ 
ERRHRO 



BIT 
BEQ 
ERRHRO 



BR 

BIT 
BEQ 
ERRHRD 



BR 

ERRHRO 



INC 
INC 
BR 



♦MRSETP!MDISC!MFRAM!MCRC!MOvr!MRUNT.Rl , WAS THE PACKET TOO LARGE 



80 » 
53.EMSG53 



130t 



«HDISC,R1 
140t 

♦MOVF.Rl 
90( 

55.EMSG55 



130* 

•MCRC.Rl 
1101 

56.EHSG56 



•HFRAM.Rl 
110* 

57.EMSG57 



130* 

«MSHORr.Rl 
120* 

60.EHSG60 



1301 

61.EMSG61 



RCVERR 

RO 

50* 



I BRANCH IF NOT 
i REPORT THE ERROR 



S CONTINUE 



TRAP CIERhRO 

. WORD 53 

.WORD EMSG53 

.WORD 0 



ARE THERE ANY OTHER VALID ERRORS? 
BRANCH IF NOT 
OVERFLOW? 
BRANCH IF NOT 
REPORT OVERFLOW ERROR 



BRANCH 

CRC ERROR? 
BRANCH IF NOT 
ELSE REPORT IT 



TRAP 
.WORD 
.WORD 
.WORD 



TRAP 
.WORD 
.WORD 
.WORD 



: WAS FRAMING ERROR ALSO SET? 



BRANCH IF NOT 
REPORT THE ERROR 



: CONTINUE 



TRAP 
.WORD 
.WORD 
.WORD 



PACKET LESS THAN 10 BYTES? 
BRANCH IF NOT 
REPORT IT 

TRAP 
.WORD 
.UORO 
.WORD 



CIERMRO 

55 

EMSG55 
0 



CtERHRD 
56 

EMSG56 
0 



CtERHRD 

57 

EMSG57 
0 



CtERHRD 
60 

EMSG60 
0 



i REPORT UNKNOWN RECEIVER ERROR 

TRAP CJERHRO 
.WORD 61 
.WORD EMSG61 
.WORD 0 

J ELSE. INCREMENT RECEIVE ERROR COciNTER 

! SET STATUS TO FAILURE 

: UPDATE POINTERS AND RETURN 
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4209 


074554 


005237 


050300 




INC 


RCVBUF 


4210 


074560 






150* : 






4211 


074560 


005202 






INC 


R2 


4212 


074562 


005337 


050256 




DEC 


NIRCNT 


4213 


074566 
074566 
074572 
074576 
074602 


012725 
012725 
004437 
006450 


024222 
000000 
070656 




CALL 


GETRNX «0.«RRGCUR 


4214 


074604 


000406 






BR 


170$ 


4215 


074606 






1601: 






4216 


074606 


012700 


000002 




MOV 


•2.R0 


4217 


074612 
074612 
074614 
074616 
074620 


104455 
000013 
063735 
070306 






ERRDF 


ll.EMSGll.ERRl 


4218 


074622 






170$: 






4219 


074622 


005064 


000002 




CLR 


DESC(R4) 


4220 


074626 






180* : 






4221 


074626 
074626 
074630 


010225 
000207 






RETURN 


R2 



4222 



SFQ 90 



INCREMENT GOOD BUFFERS RECEIVED COUNTER 

KEEP COUNT OF HOW MANY BUFFERS RECEIVED 

KEEP BOOKKEEPING IN ORDER 

UPDATE "RECEIVE RING CURRENT" POINTER 
MOV «RRGC<JR.(R5)* 
MOV *0.(R5). 
JSR R4.PREG14 
.UORO GETRNX -ANCHOR 



SET FAILURE STATUS IN RO 
RECEIVE RING BOOKKEEPING ERROR 

TRAP C$ERDF 
.WORD 11 
.WORD EMSGll 
.UORO ERRl 

INVALIDATE CURRENT DESCRIPTOR 

RETURN WITH NUMBER OF ENTRTS HANDLED 
MOV R2.(R5)* 
RTS PC 
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SEQ 91 



4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 
4258 
4259 
4260 
4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 

4275 

4276 
4277 
4278 



.SBTTL BMPCNT UPDATE STATISTICS 



I ♦ ♦ 



FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS USED TO UPDATE THE STATISTICS COUNTERS FROM THE 
INFO IN STATUS WORDS I AND 2 IN BUFFER OESCRIP.OR ENTRIES 



CALLING SEQUENCE 

CALL BMPCNT 

INPUT 



XFER TYPE. DESCRIPTOR ADDRESS 



074632 

074632 012701 050144 
074636 

074636 014502 
074640 

074640 014503 

074642 001504 

074644 016204 000010 

074650 032704 000400 



DESCRIPTOR ADDRESS ADDRESS OF THE RING DESCRIPTOR ENTRY 
XFER TYPE - 0 - RING DESCRIPTOR FROM RCV LIST 
- 1 - RING DESCRIPTOR FROM XMIT LIST 

IMPLICIT INPUT 
NONE 

OUTPUT 

COUNTER ARE UPDATED 
IMPLICIT OUTPUT 
NONE 

COMPLETION CODES 

NONE 
SIDE EFFECTS 

NONE 

REGISTERS USED 

Rl - HOLDS ADDRESS OF COUNTER TABLE 

R2 - HOLDS ADDRESS OF RING DESCRIPTOR 

R3 - SCRATCH PAD 

R4 - SCRATCH PAD 



DEBUG 



BMPCNT : 



NONE 



MOV 
P»POP 



OCNTRS.Rl 
R2 



P$POP R3 

SEQ BMPREC 

MOV STAT1(R2).R4 

BIT •MFAIL.R4 



! GET ADDRESS OF COUNTER TABLE 
I GET ADDRESS OF DESCRIPTOR 

MOV -(R5).R2 
i XMIT OR RECEIVE? 

MOV -(R5).R5 
BRANCH IF RECEIVE PACKET 
GET STATUS UORD 
DID UE GET HEARTBEAT FAILURE? 
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4279 


074654 


001402 








BEQ 


3« . 


BRANCH ir NOT 


4260 
4281 


074656 


005261 


000074 






INC 


C.COLL(Rn 1 


ELSE. INCREMENT NUMBER Of COLLISION TEST FAIL'JRES 


4282 










1 SEE If XhlSSION WAS ABORTED i ir IT WAS. 


SET REASON MASK. NOTt THAT 16 


4283 










1 RETRIES WILL 


HAVE BEEN ATTEMPTED FOR CARRIFR LOSS AND NO CARRIEh 


4284 
4285 


074662 








i 

5t : 








4286 


074662 


032704 


016000 






ATT 

BIT 




ABORT 7 


4287 


074666 


001453 








DCU 


Wl 1 


BNHNtrl Ir NOT 


4288 


074670 


005261 


000072 






INC 


L • XAoTl HI ; 1 


uK^V HBOHT COLMT 


4289 


0746 74 


032704 


004000 






n T T 


AMAOnD T BA 


Tc AAADT CC T ^ 
I 3 MBOK T SC 1 7 


4290 


074700 


001410 








n r r\ 


lOi 1 


BhhNCM Ir NOT 


4291 


074702 












BA 


CAUC DA 




074702 


010446 












MOU AA / CD \ 

HOV H4 , I 5P ) 


4292 


074704 


042704 


177417 






BIL 


A 4 9 7A « 7 DA 


Pi cad CUCDvTuTft^ At IT ACTDtf &IT 

LLcHN cVcRTTnINu BUI RcTKT COUNT 


4293 


074710 


001003 








BNc 


^* 1 


ADAfcl/*u TC TUC PAl ^T TC kmT TCBn 

BRANCH If Tnt COVMT 15 NOT ZERO 


4294 


074712 


052761 


000001 


000070 




D rc 
Bib 




CI CC CC T DC TDv CATI I AC ATT Tki ATT itACw 
CLbC ■ SCI NCINT rnXLUHC BIT IN BIT I'Hb'v 


4295 


074720 








9* : 








4296 


074720 










DAD 


DA 


DccTnoc pnAiTC^Tc nc da 




07 .720 


012604 












MAu f CD \ . DA 

MOV V SP J • , R4 


4297 


074722 








101 : 








4298 


074722 


032704 


010000 






OT T 

BI T 


AMI nCC DA 


UAC 1 ACT PADDTCD DCACAAl CAD ADADT^ 

HAS LObT tWiNICR NcHbUN TUN MBORi; 


4299 


074726 


001406 








Dcn 
BCU 


OA A 

cOi t 


ODAklf^u TC k^T 
DNWILn ir NUI 


4300 


074730 


032704 


002000 






ATT 

Bl 1 


AM^iA^AD DA 


TCCT C^Ml PADDTCD CCklCCA 
ICbl r UN NU kMHHlCN bcNbcU 


4301 


074734 


001003 








BNt 




DDAk^kJ TC TCDA 

BRiwKH I^ ZtRO 


4302 


074736 


052761 


000002 


000070 




a Tc 
BIS 


K. CAR.C.XABB(Rl) i 


CC T f^AADTCD 1 m tt^ t ATT 

ScT CHRRIcH LUbT BIT 


4303 


074744 








20» : 








4304 


074744 


032704 


010000 






ATT 

Bl 1 


AMI nCC DA 


uAC 1 ACT CAOOTKO DCACAAl CAD AAfWT^ 
HHb LUbT tfWiHiCN NCHbUN r UN MSUNI7 


4305 


074750 


001006 








AUC 

BNc 


SA A 


ADAklPU TC k^T 

BRANCH Ir NOT 


4306 


074752 


032704 


002000 






ATT 

BIT 


AftiklA^ AD DA 


TCCT CAO ktf^ PADDTCD CCklCCA 

Tcbl r(^ NO tARRXcR bcNbcU 


4307 


074756 


001403 








AC A 

BcQ 


SA« 


DDAkiPU TP TCDA 

BRANCH IF ZtRO 


4508 


074760 


032761 


000004 


000070 




O T T 

BIT 


Mf* Cfc^BT ^ WADDADt \ 


tfCC TT«C CC T CC T CuADTCA BTT 

Tcba IT b ScT. bcT bHORTcD BIT 


4309 


074766 








30» : 






4310 


074766 


032761 


000001 


000070 




ATT 

BI I 


A^ DTOtf ^ WADDADI ^ 


DC TDv AD/M T CC T 9 
NC TNT ABOR T be T f 


4311 


074774 


001407 








Acn 
BEQ 


AAA 


ADAkJPu TC klAT 

BRANCH Ir NOT 


4312 


074776 


032761 


000004 


000070 




ATT 

BIT 


A/* C^DT ^ VADD^DI ^ 


CI CC TC TUC CuADT ATT CCT^ 

cLbC. IS THE. SHORT BIT bcT? 


4313 


075004 


001003 








BNc 


AAA 


ADA&l/*kJ TC klAT 

BRANCH Ir NOT 


4314 


075006 


052761 


000010 


000070 




ATC 

BIS 


A/* ADCIki ^ vABOADt \ 


CI CC DC TA% ADABT A&M% KlAT A CkdABT CC T ADCkl DTT 

cLbc. RcTRi ABORT AND NOT A bHuRT, be i OPcN BI' 


4315 


075014 








•0» : 






4316 


075014 


000560 








AA 

BR 


DMDC V T 


klA VMTCCTAAl A^Pl BOCA TPkiADC DvTPkiT 

NU xnibblLM ObCvWRcD. luNWc B>Ti.Ni 


4317 


075016 








yo* : 








4318 


075016 


042704 


177417 






A T^ 

Bit 


A 4 9 7 A 1 Y DA 


d CAD Al 1 Di IT DC TD« PAlBiT 

CLcAR ALL BUT HcTRT LOVMT 


4319 


075022 


001460 








Acn 
BEQ 




Cfte BiTCD TC TCDA DCTDTCC APPi AIDCA 

COUNTER IS ZcRD. NO RcTNIcb OLCLWRcD 


4320 


075024 


162704 


000020 






CI B 


AHA DA 


UCLNcncNI LUtMl 


4321 


075030 


001455 








UFO 






4322 


075032 


162704 


000020 






SUB 


•20. R4 t 


ELSE. DECREMENT COUNT AGAIN 


4325 


075036 


001003 








BNE 


60* t 


BRANCH IF MORE THAN TWO 


4324 


075040 


005261 


000050 






INC 


C.PXM2CR1) 1 


ELSE. BUMP 2 RETRIES COUNT 


4325 


075044 


000447 








BR 


BMPMUL 1 


FINISH COUNTERS 


4326 


075046 








60t: 








4327 


075046 


005261 


000044 






INC 


C.PXMSCRl) 1 


INCREMENT 5 OR MORE RETRIES CX»*TER 


4328 


075052 


000444 








BR 


BMPMUL 1 


FINISH COUNTERS 


4329 


075054 








BMPREC : 








4S30 


C 75054 


016204 


000010 






MOV 


STAT1{R2).R4 i 


GET STATUS UORO 1 


4331 


075060 


032704 


040000 






BIT 


•MRERRS.R4 i 


TEST ERROR BIT 


4552 


075064 


001001 








BNE 


5$ 1 


BRANCH IF ERROR BIT IS SET 


4555 


075066 


000436 








BR 


BMPMU 





C6 
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SFO 9! 




0?5070 








51 : 










075070 


A ■ ^ YAA 

032 704 


A t AAAA 

010000 






RT T 


AMnT<;r R4 






075074 


001424 








DCU 


v • 




AW? 


075076 








101 : 








A lit II 


075076 


005261 


000016 














075102 


032704 


000001 






RT T 


AMnuF R4 






075106 


001402 








RFO 
DCU 




1 no Alar H T r lan t 


1 


075110 


005261 


000030 








r Rl TMf Q1 ) 






075114 








201 : 










075114 


A V\ YAA 

032704 


AAAAA^ 

000002 






BTT 


AHTPr R4 


t ror PPDOO CP r 7 




075120 


001411 








DC W 




fl RDAI^H Tr MOT 


4X4S 


075122 


052761 


A A.^%<^M ■ 

000001 


^^^%AA • M 

000014 




RT<; 




t CFT ror POROD RTT 


4X4 


075130 








301 : 








4X47 


075130 


A YAA 

032704 


AAAAAA 

000004 






RTT 

DX ■ 


AMFRAM R4 

VI W MAI 1 f A"f 


t rOAHTM". FRRAR? 


4X411 


075134 


001403 








DCU 


X^i 


t RDAMTM TP fynT 


4X4Q 


A^e « 

0751S6 


052761 


AAAAA^ 

000002 


AAAA 1 A 

OOOOX4 




DX J 




• Fl CF CFT PRAMTItfC FRRflR RTT 


4 XVI 


A^K • A A 

075144 








35> : 










075144 


AAAC AA 

000504 








BR 




1 FXTT 

1 C A X < 


4XSP 


A9K « A ^ 

075146 








AAA 

401 : 








4XSX 


A^C 4 M£. 

075146 


052704 


AAA AAA 

004000 






RTT 

DX I 


4HAIJMT n4 


1 RUMT PACKF T "> 




A^K « E t 

075152 


AA9 ii AA 

001404 








BFQ 

DCV 


BHPMUL 


I BRANTH TF NOT 


^ J J J 


075154 


052761 


AAAA4 A 

000010 


AAAA4 Jk 

000014 




BT% 

DX 9 




t CFT RlJNT PACKFT RTT 




075162 


000475 








RR 

DW 




1 FXTT 

1 C A X 1 


4357 


A^K « ^ A 

075164 








BnPnUL : 








4SM 


075164 














1 CAVF ADORFCC (IT DATA Rl^FFP 




075164 


016225 


AAAAA A 

000004 










Mnu t riAnnf pp i f ds ^ * 




• ^A 

075170 


AAK ^A V 

005703 








T^ T 


RX 


VHT T nP PPTF TUF ? 


4X^ 


075172 


001405 








RFO 


St 


t RPAM*M TF PPrPTuF 




A^K « 

075174 


016204 


A.>%^ M^V^ 

000006 








UOnrMT f RP ) R4 


t fIFT VMTTTPn LiflQn Trk Alt 




075200 


005404 










R4 




4S6S 


075202 


AAf VAA 

006304 








A CI 


R4 


TlBM TMTfl RtTF rfllMT 


4S64 


075204 


AAAA • V 

000413 








RR 

DW 




t rnMTTMllF 




075206 








5> : 








4S66 


075206 


AA ^^AA 

042704 


174377 






RTf 

DXW 


•174377 R4 


1 FxTPArT Pru RVTF 1 FMTTh IA-JI 


4367 


A9C^« ^ 

075212 












RP 


1 CAWP T^ PArKF T AnnPFCC 
1 ^nvc 1 1C r «W\C 1 nvwAC99 




075212 


010225 












nnw Rp f PS * 




075214 


Afl ^ '^A'^ 

016202 


000012 






HOW 


STATPfRP') RP 


1 nFT pru RvTF 1 FMHTH 7*A 


4369 


075220 


042702 


177400 






HTr 




i CLEAR COPY OF T»C COUNT IN HIGH BYTE 


4370 


075224 


AC A AAA 

050204 








htc 


BP B4 

AC • A^ 


1 HFBfV THF Tun RvTF 1 FMftTMC 


4371 


ATC *^ 

075226 


AA ^^AA 

062704 


000074 






ADD 

A4#W 


MkO R4 


I hakf l0 fob hvtfc 1 OCT nmTM~. adobf^^ thftk 


4372 


075252 










PtPOP 


RP 

Ac 


1 BFQTOBF Tt^ PA^KFT OnnSFCC 




075232 


A4 AKA'% 

014502 












MOu .rs^i BP 

nuv *\ A3 J a Ac 


4373 


075254 








15i: 






4374 


075254 


162704 


000016 






CIM 
3UO 


»10t A^ 


1 cmTBArT panTftrni rvtfc rniMT om t data RfTF<« 

1 3\JO < A A^ 1 fAw 1 Vf^U^ D > 1 C 9 ■ ■ ■ l#A 1 A D > ■ C 3 


4375 


075240 


AAK ^A V 

005703 










D3 

AO 


1 CFF TF XMTT OB BFTFTuF 


4376 


075242 


AA4 M VA 

001450 








DCU 




• RBAMTH Tr BFTFTlfF 

1 DAAI^Url ACCwXVC 


4377 


U f 3«*4 


005261 


000054 








r PXMTfBI ^ 


I tntbfhfmt mlmrfb or packftc xmtttfd 


4378 


075250 


052762 


AAA* AA 

000100 


A AAA A 

000002 




RTT 
D X 1 


AMHTRvT DFCrrBP^ 
vrwiXD ■ I aUCjCV AC 1 


1 DTD DATA CTART OM Rv TF ROtMIABf * 

1 V Xt# VA 1 A J 1 AA 1 V>« D ■ ■ C DU\.nm^ AA V « 


4379 


075256 


AA« A A« 

001401 








RFQ 

DC w 


lot 


I BRANCH TF NOT 


4380 


O75260 


005304 








OFf 


B4 

A"f 


■ nprpFHFMr rniAit rv myr 


4381 










1 A A . 








4 SAP 


075262 


032762 


000200 


000002 




RTT 
DX 1 


MM nRvT nPQrrBPi 

V* i^UD ' ■ • l#C3WV AC t 


1 nTn DATA CTART DM RvTF RnuMOAOl ' 


4383 


075270 


001401 








BEQ 


20% 


1 BRANCH IF NOT 


4384 


075272 


005304 








DEC 


R4 


1 DECREMENT COUNT By ONE 


4385 


075274 








201; 








4386 


075274 










PIPOP 


R2 


i GET DATA BuTFER ADOREbS 




075274 


014502 












MOV CR*»\«.^ 



4S67 


075276 


052762 


000001 


4S88 


075504 


001404 




4569 


075506 


005261 


000040 


4S90 


075512 


060461 


000064 


4S91 


075516 






4592 


075516 


060461 


000060 


4S9S 


075522 


000415 




4394 


075524 






4595 


075524 








075524 


014502 




4396 


075526 


005261 


000004 


4597 


075552 


052762 


000001 


4598 


075540 


001404 




4399 


075342 


005261 


OOOOlO 


4400 


075546 


060461 


000024 


4401 


075352 






4402 


075552 


060461 


000020 


4403 


075556 






4404 


075556 








075556 


000207 





40t; 



50»; 



60$: 
BMPEXI: 



BIT 
BEQ 
INC 
ADD 

ADD 
BR 

PIPOP 

INC 
BIT 
BEQ 
INC 
ADD 

ADD 

RETURN 



D8 
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•6IT00.DESTIN(R2) 
40» 

C.MXMT(Hl) 
R4,C.XMD6(R1) 

R4,C.XDAT(R1) 
BMPEXI 

R2 

C.PREC(Rl) 
•6IT00.DESTIN(R2) 
60 » 

C.MREC(Rl) 
R4,C.RnDB(Rl) 

R4.C.RDAT(R1) 



SEQ '»4 



MULTICAST ADDRESS? 

NO IF ZERO. MOVE ON 

BUMP MULTICAST XMIT COUNT 

ADO BYTE COUNT TO MULTICAST BrTE CNT 

ADO BTTE COUNT TO TOTAL DATA 

EXIT 

GET DATA BUFFER ADDRESS 

MOV -(R5).R2 
BUMP PACKETS RECEIVED 
MULTICAST AiXtRESS? 
BRANCH NOT 1>E T 

BUMP MULTICAST RECEIVE PACKET COUNT 
BUMP MULTICAST RECEIVE BrTE COUNT 

BUMP RECEIVED DATA COUNT 

ADIOS, AVOIR. AUUEIDERSEN 
RTS PC 



E8 
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SEO 95 



4406 
440 7 
4408 
4409 
4410 
4411 
4412 
4415 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4425 
4424 
4425 
4426 
4427 
4428 
4429 
4450 
4451 
4452 
4455 
4454 
4455 
4456 
4457 
4458 
4459 
4440 
4441 
4442 
4445 
4444 



4445 
4446 
4447 
4448 



4449 



4450 
4451 
4452 



075560 
075472 
075474 
075474 

075500 
075502 

075504 

075506 
075510 
075510 
075512 
075516 
075522 
075526 
075550 
075550 
075552 

075534 
075536 



000000 

014557 075472 

014504 

014505 

005002 
006S0S 

010525 

012725 075560 
015725 075472 
004457 070656 
004672 

014501 
014502 

005702 
001010 



.SBTTL EOPACK ETHERNET DATA PACKING ROUTINE 



FUNCTIONAL DESCRIPTION: 



EOPACK 



ETHERNET DATA PACK 



THIS ROUTINE WILL CONVERT A STRING Of HEX CHARACTERS INTO A RIGHT 
JUSTIFIED BINARY STREAM (WITH LEADING ZEROS). COMPATIBLE WITH 
ETHERNET CONVENTIONS. THE SOURCE STRING MUST BE FORMATTED USING 
EITHER A UORD BY WORD HEX DESCRIPTION OR A BYTE BY BYTE HEX 
DESCRIPTION. THE RETURNED STRING WILL BE BvTE ORIENTED AS 
REQUIRED BY THE ETHERNET: 

LO-BYTE-UOROO HI-BYTE-UOROO LO-BYTE-UOROl HI-ByTE-UORDI. ETC. 



INPUT ARGUMENTS 



EXPLICIT OUTPUTS 
IMPLIED OUTPUTS 



SUBORDINATE PROCEDURES 
CALLING PROCEDURE 



PI 



ADDRESS OF THE SOURCE (HEX) STRING 
TO BE CONVERTED TO A BINARY STREAM. 
ADDRESS OF THE DESIRED DESTINATION 
BUFFER UHICH UILL ACCEPT BINARY DATA 
LENGTH (IN BYTES) OF THE DESTINATION 
BUFFER 

ZERO IF SUCCESSFUL. -1 IF BUFFER TOO 
LONG OR ODD NUMBER OF HEX CHARACTERS 
BUFFER AT P2 WILL CONTAIN A RIGHT 
JUSTIFIED BINARY STREAM u/ LEADING ZEROS 
AND CORRESPONDING TO HEX STRING AT RS. 
hXFORM. (STRIP NONHEX CHARACTERS) 
HEXBIN. (HEX TO BINARY CONVERSION) 
CALL EOPACK P1.P2.P5 jINPUT P1-P3 PARAMETERS 
PiPOP P4 {OUTPUT P4 PARAMETER 



P2 
P3 
P4 ■ 

THE 



LOCOS T 
SOURCE 
EOPACK 



.BLKB 
.UORO 
PIPOP 



CLR 
ASL 
CALL 



PtPOP 



TST 
BNE 



74. 



SOURCE. R4.R5 



(MAX NUMBER OF CHARACTERS THAT MAY BE ENTERREO 
iSOURCF ADDRESS 

iR4 DESTINATION. R5-NUMBER OF CHARS ROD 
MOV (R5). SOURCE 

MOV -(R5).R4 
MOV -(R5).R3 
s SOURCE -SRC ADDRESS, ORIENT -UORD /By TE? 
R2 {ASSUME NO ERRORS. VALUE RETURNED 

R3 :NUMBER OF CHARACTERS REQUIRED U/ "O'S 

HXFORM SOURCE. •L0C0ST,R3 

MOV 
MOV 
MOV 
JSR 
.UORD 

R1.R2 tRl 'ADDRESS OF LAST CHAR 

MOV -(R5).R1 
MOV -(R5).R2 
jR2-SUCCESS/FAlL CODE (0/ 1) 

R2 tRl UILL POINT TO RIGHTMOST CHARACTER 

10$ jRIGHT JUSTIFY BUFFER 



R3.(R5)» 
•LOC0ST.(R5)» 
SOURCE. (R5). 
R4.PREG14 
HXFORM ANCHOR 



CVNIAAO OCQNA NI EXERCISER OIAG MACRO ni200 
EDPACK ETHERNET DATA PACKING ROUTINE 

44SS 

4454 075540 006?0S 

4455 075542 
075542 010925 
075544 010425 
075546 012725 075360 
075552 0044S7 070656 
075556 005030 

4456 

4457 075560 101: 

075560 010225 

075562 000207 

4458 
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ASR R3 

CALL HEXBIN «LOCOST .R4 .RS 



RETURN R2 



SFQ 'f 



(CONVERT HEX AT LOCOST TO BINARt 
|RS BYTES IN OUTPUT BIT STREAM 

MOV R5.(Rb). 

MOV R4.(R5)» 

MOV »L0CDST.(R5). 

JSR R4.PREG14 

.UORO HEXBIN ANCHOR 

tRETURN WITH SUCCESS/FAILURE INDICATION 
MOV R2.(R5). 
RTS PC 



CVNIAAO OEQM NI _ _ 
HXFORM HEX rORMAT Ri 

4460 
4461 
446^ 
4463 
4464 
4465 
4466 
4467 
4468 
4469 
44 70 
44 71 
4472 
«473 
44 74 
44 75 
44 76 
4477 
44 78 
44 79 
4480 
4461 
4482 
4483 
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: • • 
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SEQ 0 7 



.SBTTL HXFQRM - HEX FORMAT ROUTINE 



i FUNCTIONAL DESCRIPTION: 
HXFORM 



HEX FORMAT ROUTINE 



4484 


075S64 


000000 




4485 


075566 








075566 


014503 






075570 


014502 






075572 


014537 


075564 


4486 








4487 








4488 








4489 


075576 


010204 




4490 


075600 


063704 


075564 


4491 








4492 


075604 


112301 




449S 


075606 


142701 


000200 


4494 








4495 


075612 


001414 




4496 


075614 


120127 


000060 


4497 


075620 


100413 




4498 


075622 


120127 


000072 


4499 


075626 


100406 




4500 


075630 


120127 


000101 


4501 


075634 


100405 




4502 


075636 


122701 


000106 


4503 


075642 


100402 




4504 








4505 


075644 


110122 




4506 


075646 


001405 




4507 








4508 








4509 








4510 


075650 


020402 




4511 


075652 


100354 




4512 


075654 


012704 


177777 


4513 


075660 


000404 





i 
t 
I 

HXN: 
HXFORM: 



10(: 
20$: 



30»: 

401: 
50»: 



THIS ROUTINE WILL ACCEPT A HEX STRING. AND STRIP OOT THE NON-HEX 
CHARACTERS (WITHOUT FLAGGING AN ERROR FOR THE NON-HEX CHARACTERS). 
A NULL WILL BE LEFT AS THE END OF STRING OELIMITTER. 



INPU"' ARGUMENTS 

EXPLICIT OUPUTS 

IMPLICIT OUTPUTS 
CALLING PROCEDURE 



.WORD 
P$POP 



R3.R2,HXN 



MOV 
ADD 

MOVB 
BICB 

BEQ 

CMP8 

BMI 

CMP8 

BMI 

CMP8 

BMI 

CMPB 

BMI 

MOVB 
BEQ 



CMP 
BPL 
MOV 
BR 



R2.R4 
HXN.R4 

(R3)..R1 
•200. Rl 

30$ 

Rl.«60 
40$ 

Rl.»72 
30$ 

Rl.OlOl 
40$ 

0106. Rl 
40$ 

R1.(R2). 
60$ 



R4.R2 
10$ 

•-I.R4 
70$ 



PI 

P2 

P3- 
P4- 

P5- 



ADDRESS OF THE SOURCE ASCII STRING (NULL 

OELIMITTER AT END OF STRING) 

ADDRESS OF THE DESTINATION ASCII HEX STRING 

(STRIPPED OF NON-HEX AND RIGHT JUSTIFIED) 

THE NUMBER OF HEX CHARACTERS DESIRED aR4 

WILL CONTAIN THE ADDRESS OF THE LAST 

CHARACTER IN THE OUTPUT BUFFER. 

THE SUCCESS/FAILURE (0/-1) INDICATOR 



THE BUFFER AT R4 WILL 
HEX (ASCII) STRING. 
CALL HXFORM Pl.P2.P3 
P$POP P4.P5 



CONTAIN FORMATTED 



; ADDRESS OF SOURCE STRING 

MOV -(R5).R3 
MOV (R5).R2 
MOV (R5).HXN 

{ADDRESS OF DESTINATION STRING 

lNUr«ER OF HEX CHARACTERS DESIRED 

iDESTINATION ADDRESS. R2: DESTINATION POINTER 

tPOINT TO END OF OUTPUT BUFFER (DESTINATION) 

I DO WHILE NO NULL FOUND IN SOURCE STRING 

;GET BYTE IN QUESTION (C POINT TO NEXT B^TE) 

lENSURE HI BIT IS LO (SEVEN BIT ASCII) 

I CHECK FOR VALID HEX CHARACTER 

:THE NULL IS A VALID CHARACTER (BUT THE LAST) 

I IF GREATER THAN "0" THEN RANGE OK 

|40$-0UT OF RANGE. BYTE VALUE TOO SMALL 

sIF BYTE IS LESS THAN 72 AND >-60 THEN RANGE OK 

{RANGE OK IF >.60 AND <72 ELSE. CONTINUE CHECK 

iBTTE MUST BE >-101 TO CONTINUE CHECK 

I IF BYTE >71 AND <101 THEN BYTE OUT OF RANGE. 

iBYTE MUST BE <- 106 TO BE OK. ELSE: NOT OK. 

iBYTE NOT OK. DON'T PLACE THIS BYTE IN OUTPUT. 

{PLACE THE HEX BYTE IN THE OUTPUT BUFFER. 

{BYTE IN RANGE. CONFIRMED. 8WE OK. POINT TO 

{NEXT BYTE DEST ADDRESS. IF NULL. THEN EXIT. 

{(NO ERRORS) 

{IF NOT NULL. THEN CHECK FOR BUFFER OVERfLOW. 
{R4 POINTS TO LAST CHARACTER POSITION (OLTPuT) 
(R2 - PRESENT WRITE ADDRESS 

{(SHOULD BE POSITIVE RESULT OR 0) (MORE TO DO' 
{SET ERROR CONDITION (EXIT WITH ERROR) 
{ERROR DETECTED EXIT PATH -> (TOO MANY CHARS'' 



H8 
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SEQ 98 



4514 
4515 
4516 
4517 
4518 
4519 
4520 



4521 



075662 
075664 
075666 
075670 
075672 
075672 
075674 
075676 



005302 
020402 
001372 
005004 

010425 

010225 
000207 



60* : DEC R2 

CMP R4.R2 

BNE SO* 

CLR R4 

70* : RETURN R2,R4 



iSUCCESSrUL EXIT PATH 

iPQINT TO THE LAST ACTUAL CHARACTER AT OEST BTR 
(CHECK FOR MINIMUN OF 12 CHARACTERS. 
iBRAMCH IF LESS THAN 12. ERROR, 
t INDICATE SUCESS 

I ADDRESS OF LAST CHARACTER (R2) IS P4 

MOV R4.(R5)> 
MOV R2.(R5)* 
RTS PC 

I ERROR INDICATOR (R4) IS P5 



18 



CVNIAAO OtUNA NI EXERCIStR DIAG MACRO m;200 
HEXBIN H(x TO BINARv CONVERSION 



45^5 
4SJ4 
45^5 
4526 
452' 
4528 
4529 
4530 
4551 
455C 
4555 
4554 
4555 
4556 
455' 
4558 
455«» 
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Sf Q 



.SBTTL 
HEXBIN 



HEXBIN 



HEX TO BINARY CONVERSION 

HEX TO BINARY CONVERSION PROCEDURE 



THIS PROCEDURE UILL CONVERT A STRING OF HEX (ASCII) CHARACTERS 
DIRECTLY TO A BINARY STREAM. THE DESTINATION BINARt STREAM MILL 
REQUIRE ONLY HALF AS MANY BYTES AS THE HEX STRING BECAUSE TuO 

HEX Characters are required to represent a single binary byte. 



INPUTS 



OUTPUTS 

implied OUTPUTS 



4540 










t 


4541 










t 


4542 












4545 


075700 


000000 






HN: 


4544 


075702 


060 


061 


062 


CMPSTR: 




075705 


065 


064 


065 






075710 


066 


067 


070 






075715 


071 


101 


102 






075716 


105 


104 


105 






075721 


106 


000 






4545 












4546 


075724 
075724 
075726 
075750 


014501 
014502 
014557 


075700 




HEXBIN: 



SUBORDINATE PROCEDURES 
CALLING PROCEDURE 

.UORD 



PI SOURCE STRING ADDRESS (DELIMITTED By A NULL) 
P2 DESTINATION ADDRESS FOR THE BINARY DATA. 
P5 THE NUMBER OF BINARY BYTES REQUIRED (HALF THE 

NUMBER OF CHARACTERS AT PI. 

NO EXPLICIT OUTPUTS 

THE BUFFER AT P2 UiLL CONTAIN THE BINARY 
STREAM. CONVERTED DIRECT*, i rsCK THE BjrrER 
AT PI. 
NONE 

CALL HEXBIN P1.P2.P5 



.EVEN 



R1.R2.HN 



(R5).Rl 
(R5).R2 
-(R5).MN 



4547 














4548 














4549 


075754 


060257 


075700 




ADD 


R2.HN 


4550 


075740 


012704 


075702 


10<: 


MOV 


•CMPSTR. R4 


4551 


075744 


121124 




20«: 


CMPB 


(R1).(R4). 


4552 


075746 


001576 






BNE 


20 « 


4555 


075750 


005201 






INC 


Rl 


4554 


075752 


162704 


075705 




SUB 


•CMPSTR *1.R4 


4555 














4S5^ 














4557 


075756 


006504 






ASL 


R4 


4556 


075760 


006504 






ASL 


R4 


4559 


075762 


006504 






ASL 


R4 


4560 


075764 


006504 






ASL 


R4 


4561 


075766 


010405 






MOV 


R4.R5 


4562 


075770 


012704 


075702 




MOV 


•CMPSTR. R4 


4565 


075774 


121124 




501: 


CMPB 


(R1).(R4)* 


4564 


0757 76 


001576 






BNE 


501 


4565 


076000 


005201 






INC 


Rl 


4566 


076002 


162704 


075705 




SUB 


•CMPSTR. 1.R4 


456' 














4568 















;R1 'SOURCE STRING ADDRESS 

MOV 
HOV 
MOV 

|R2-DESTINATI0N STRING ADDRESS 
:HN-NUMBER OF BYTES REQUIRED 
;HN NOU POINTS TO THE LAST.ByTE POSITION*! 
(POINTER IN THE COMPARE STRING 
iCOMPARE CURRENT CHAR UlTH A CHAR IN CMPSTR 
sREPEAT UNTIL CHARACTER FOUND IN LIST 
jPOINT TO THE NEXT ASCII BYTE 
:R4 NOU CONTAINS THE ACTUAL BINARY VALUE FOR 
(THE NIBBLE DESCRIBED BY THE CURRENT BYTE. 
{NOTE: NIBBLE IS THE HI PORTION OF THE ByTE 
:MOVE NIBBLE TO THE HI END OF THE ByTE 



I SAVE THE HI NIBBLE 

(POINTER INTO COMPARE STRING 

(COMPARE CURRENT CHAR WITH A CHAR IN CMPS'R 

(REPEAT UNTIL MATCH FOUND IN CMPSTR LIST 

(POINT TO THE NEXT ASCII BtTE 

(R4 NOU CONTAINS THE ACTUAL BINARt \,Alc<E ^CR 

(THE NIBBLE DESCRIBED BY THE CURRENT B>'E. 

(NOTE: NIBBLE IS THE HI PORTION OF THE B»'* 
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45«>9 076006 
45 '0 

45'! 076010 
45 V 076012 
45''5 0 76016 
45 '4 076020 
0"'6020 



05040S 

110322 

020257 075700 
100750 

000207 



BIS R4.R5 

nOVB R5,(R2)* 

CMP R2,HN 

BHI 10* 
RETURN 



SEO 100 



tNOU THE TWO CHARACTERS HAVE HADE A SINGLE B^TE 
jNOU PLACE THE COMPLETE BtTE IN THE MSTINATION 
jANO POINT TO THE NEXT DE«;TINATI0N B^TE 
iir THE DESTINATION POINTER fR2l REACHES THE 
iLAST CHARACTER POSITION*! ThN] THEN DONE. 
(RETURN TO CALLER 

RTS PC 
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45^6 
4577 
4578 
457Q 

45ao 

4581 
4582 
4585 
4584 
4585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
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SEQ 101 



4593 


076022 


060 


061 


062 


HEXC: 


.ASCII 




076025 


063 


064 


065 








076030 


066 


067 


070 








076033 


071 


101 


102 








076036 


103 


104 


105 








076041 


106 










4594 


076042 


000000 






LST: 


.UORO 


4595 


076044 
076044 
076046 
076052 


014501 
014537 
014502 


076042 




BINHEX: 


PIPQP 


4596 














4597 














4598 


076054 


060137 


076042 






ADO 


4599 


076060 


112103 






10$: 


HOVB 


4600 


076062 


110304 








HOVB 


4601 


076064 


042703 


177760 






BIC 


4602 


076070 


006204 








ASR 


4603 


076072 


006204 








ASR 


4604 


076074 


006204 








ASR 


4605 


076076 


006204 








ASR 


4606 


076100 


042704 


177760 






BIC 


4607 














4608 














4609 


076104 


116422 


076022 






nOvB 


4610 


076110 


116322 


076022 






HOVB 


4611 


076114 


112722 


000055 






HOVB 


4612 


076120 


020137 


076042 






CMP 


4613 


076124 


103755 








BLO 


4614 


076126 


105042 








CLRB 


4615 


076130 
076130 


000207 








RETURN 



.SBTTL BINHEX - BINARY TO HEX CONVERSION PROCEDURE 

BINHEX BINARY TO HEX CONVERSION PROCEDURE 

THIS PROCEDURE WILL CONVERT A BINARY DATA STREAM INTO A HEX STRING. 

INPUTS - PI- BINARY DATA BUFFER ADDRESS 

P2- NUMBER OF BYTES IN THE BUFFER 
P3- ADDRESS OF OUTPUT BUFFER FOR HEX STRING. 
HEX CHARACTER PAIRS SEPERATED Br ••-"■S 
(NOTE: THIS BUFFER MUST BE AT LEAST 3»P2 BYTES LONG) 

OUTPUTS - NONE 

IMPLICIT OUTPUTS THE BUFFER AT P3 WILL CONTAIN THE HEX STRING 

FOLLOWED BY A NULL CHARACTER. 
SUBORDINATE ROUTINES NONE 
CALLING PROCEDURE CALL BINHEX P1,P2,P3 

/0123456789ABCDEF / 



R1.LST.R2 



Rl.LST 

(R1)».R3 

R3.R4 

•177760, R3 

R4 

R4 

R4 

R4 

♦1 77760. R4 



HEXC(R4).(R2)» 
^€XCCR3).(R2)♦ 
*' -.(R2)» 
Rl.LST 
10» 
(R2) 



sRl HAS THE INPUT BUFFER ADDRESS 

MOV -(R5).R1 
MOV -(R5).LST 
MOV -(R5).R2 
iLST: HAS THE NUMBER OF BYTES IN INPUT BUFFER 
jR2 HAS THE OUTPUT BUFFER ADDRESS 
jLST IS NOW ADDRESS OF LAST SOURCE BYTE ♦ 1 
jGET THE CURRENT BYTE AND POINT TO NEXT BYTE 
J SEPARATE NIBBLES AND GET CHARACTERS SEPARATELY 
(ONLY RIGHT BINARY NIBBLE REMAINS IN R3 
> SHIFT OVER FOR LEFT BINARY NIBBLE IN R4 



iOM.Y LEFT BINAR> NIBBLE REMAINS IN R4 
jR4 IS THE MOST SIGNIFICANT NIBBLE (FIRST) 
jR3 IS THE LEAST SIGNIFICANT NIBBLE (SECOND) 
sPUT THE ASCII BYTE INTO THE BUFFER HI POSITION 
sPUT THE ASCII BYTE INTO THE BUFFER LO POSITION 
jPUT - BETWEEN HEX PAIRS 
jRESULT IS NEGATIVE UNTIL Rl-LST 
{UNTIL Rl-LST. (TRANSFER ALL SOURCE BYTES"* 
{TERMINATE OUTPUT BUFFER WITH A NULL 



RTS 



FC 
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SEQ 102 



4617 
4618 
4619 
4620 
4621 
4622 
4625 
4624 
4625 
4626 
4627 
4626 
4629 
4630 
4651 
4632 
4633 
4634 
4655 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4643 
4644 



.SBTTL 



BLDLD BUILD LOOP DIRECT DATA BUFFERS FOR TRANSMIT, 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE BUILDS LOOP DIRECT PACKETS FOR TRANSMISSION 
: FROM THE QNA. SOURCE ADDRESS. DESTINATION ADDRESS. 

I PROT. TYPE. AND LOOP DIRECT HEADER INFO ARE ADDED 

TO THE MESSAGE BUFFER. THE MESSAGE BUFFER IS BUILT 
BY A CALL TO BLD6UF. 



INPUTS 



PI - THE ADDRESS OF THE DESTINATION ADDRESS (FROM NODE TABLE) 
IMPLICIT - P»SIZE CONTAINS THE SIZE OF THE MESSAGE BUFFER DATA 
XRGNXT POINTS TO THE NEXT AVAILABLE RING ENTRY 
PHY ADR HOLDS THE CURRENT LOCAL QNA PHYSICAL ADDRESS 



OUTPUTS - BUILT MESSAGE PACKET. 

CALLING PROCEDURE - CALL BLDLD PI 

SIDE EFFECTS - THE MESSAGE PACKET IS BUILD AND CONTAINED IN THE 

BUFFER POINTED TO BY XRGNXT UHEN THE ROUTINE WAS ENTERED. 
XRGNXT IS UPDATED TO POINT TO THE NEXT RING ENTRY 



REGISTER USAGE 



Rl HOLDS ADDRESS OF DESTINATION ADDRESS 

R2 IS A POINTER FOR THE LOOP DIRECT HEADER INFO 

R3 HOLDS THE PACKET LENGTH 

R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BUFFER 



4645 


076132 






BLDLD; : 






4646 


076132 
076132 


014501 






PtPOP 


Rl 


4647 


076134 


013704 


024224 




MOV 


XRGNXT, R4 


4648 


076140 


016404 


000004 




MOV 


L0A0D(R4),R4 


4649 


076144 


013703 


002374 




HOV 


PtSIZE.RS 


4650 


076150 


062703 


000040 




ADD 


«40.R3 


4651 


076154 


010337 


050324 




MOV 


RS.XFER 


4652 


076160 


162737 


000016 


050324 


SUB 


♦16 . XFER 


4653 


076166 


022703 


001100 




CMP 


«XPKLEN.R3 


4654 


076172 


002474 






BLT 


10$ 


4655 


076174 


010337 


050332 




MOV 


R3.BUFLEN 


4656 


076200 


012164 


000000 




MOV 


(R1)».DESTIN(R4) 


4657 


076204 


012164 


000002 




MOV 


(R1)*.0ESTIN»2(R4) 


4658 


076210 


011164 


000004 




MOV 


(R1).0ESTIN*4(R4) 


4659 


076214 


005064 


000006 




CLR 


S0URCC(R4) 


4660 


076220 


005064 


000010 




CLR 


S0URCC*2(R4) 


4661 


07f 224 


005064 


000012 




CLR 


S0URCC»4(R4) 


4662 


076230 


013764 


050306 


000014 


MOV 


PR0T00.PR0T0T(R4) 


4663 


076236 


012702 


050346 




MOV 


•L0P0IR.R2 


4664 


076242 


012264 


000016 




MOV 


(R2)».L0SKIP(R4) 


4665 


076246 


011264 


000020 




MOV 


(R2).L0FCT1CR4) 


4666 


076252 


013764 


004010 


000022 


MOV 


PHYA0R.L0A0R1(R4) 


4667 


076260 


013764 


004012 


000024 


MOV 


PHY ADR *2 . LOADRl »2(R4 ) 


4668 


076266 


013764 


004014 


000026 


MOV 


PHY ADR *A . LOAOR 1 * 4( R4 ) 


4669 


076274 


016264 


000010 


000030 


MOV 


10(R2).LDFCT2(R4) 


4670 


076302 


013764 


004010 


000032 


MOV 


PHYA0R.L0ADR2(R4) 


4671 


076310 


013764 


004012 


000034 


MOV 


PHYA0R»2.LDA0R2*2(R4) 


4672 


076316 


013764 


004014 


000036 


MOV 


PHY ADR »4 . LDADr2 *4( R4 ) 



PUT ADDRESS OF DEST. ADDRESS IN Rl 

MOV -(R5).R1 
MOVE NEXT PACKET ADDRESS TO R4 
POINT R4 TO DATA BLOCK 
PUT MESSAGE SIZE INTO R3 

ADD HEADER AND LOOP DIRECT INFO TO LENGTH 
PUT BvTES TRANSFERED INTO WORD 

AND CORRECT FOR HEADER 
SEE IF LONGER THAN ONE PACKET 

IF YES. ERROR 
PUT PACKET LENGTH IN BUFLEN 
MOVE FIRST TWO BYTES OF ADDRESS 
MOVE BYTES THREE AND FOUR 
MOVE BYTES FIVE AND SIX 
LEAVE BLANK SPACE FOR SOURCE ADDRESS 
SIX BYTES WORTH 



MOVE PROTOCALL TYPE INTO »«AOER 
MOVE LOOPDIRECT FORMAT HEADER LOG. 
SKIP COUNT 

FUNCTION CODE (FORWARD) 
LOCAL NODE ADDRESS 
SIX BYTES 

FUNCTION CODE (REPLY) 
LOCAL NODE ADDRESS 
SIX BYTES 



TO R2 



MAR 84 13:12 
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4675 076524 

4674 076550 

4675 076534 
076554 
076556 
076542 

4676 076544 
076544 
076550 
076554 
076560 

4677 076362 

4678 076564 
076364 
076566 
076370 
076572 

4679 076574 
076574 



062704 
010457 

010425 
004457 
006756 

012725 
012725 
004457 
006554 
000404 

104455 
000016 
065774 
070506 

000207 



000040 
050534 



070656 



024224 
000000 
070656 



10$: 



20(: 



ADO 
MOV 
CALL 



CALL 



BR 

ERRDF 



RETURN 



«L0A0R2*6.R4 
R4.CMPBUF 
BLDBUF R4 



GETXNX «0.«XRGNXT 



20$ 

14.EMSG14,ERRl 



SEO 105 



POINT R4 TO FIRST DATA BTTE 

STORE BUFFER LOCATION FOR DATA COMPARE 

BUILD DATA BUFFER 

MOV R4,(Rb)» 

JSR R4.PREG14 

. WORD BLOBUF - ANCHOR 

UPDATE POINTER TO NEXT RING ENTRY 

MOV •XRGNXT.(R5)» 
MOV ♦0.(R5)* 
JSR R4.PREG14 
.WORD GETXNX -ANCHOR 

EXIT 

MESSAGE SIZE TOO BIG 

TRAP C$ERDF 
.WORD 14 
.WORD EMSG14 
.UORD ERRl 



RTS 



PC 
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sea 104 



4681 
4682 
468 S 
4684 
4685 
4686 
4687 
4686 
4689 
4690 
4691 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4703 
4704 
4705 



.SBTTL 



BLOFAS - BUILD PACKET FOR FULL ASSIST TRANSMISSION 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE BUILDS FULL ASSIST PACKETS FOR TRANSMISSION 
FROM THE QNA. SOURCE ADDRESS. DESTINATION ADDRESS. PROT, TYPE 
AND FULL ASSIST HEADER INFO ARE ADDED TO THE MESSAGE BUFFER. 
THE MESSAGE BUFFER IS BUILT BY A CALL TO BLD6UF. 



INPUTS 



PI - THE ADDRESS O'" T^« DESTINATION ADDRESS (FROM NODE TABLE) 
IMPLICIT - P»SirE CONTAINS THE SIZE OF THE MESSAGE BUFFER DATA 
XRGNXT POINTS TO THE NEXT AVAILABLE RING ENTRY 
PHYADR HOLOS THE CURRENT LOCAL NODE ADDRESS 



OUTPUTS THE BUILT BUFFER 

CALLING PROCEDURE - CAi.L BLDFAS PI 

SIDE EFFECTS XRGNXT SI UPDATED TO POINT TO THE NEXT RING ENTRY 

REGISTER USAGE - Rl HOLDS ADDRESS OF TARGET NODE ADDRESS 
R2 HOLDS ADDRESS OF ASSIST NWE ADDRESS 
R3 HOLDS THE PACKET LENGTH 

R4 HOLOS ADDRESS OF NEXT RING ENTRY DATA BUFFER 



4706 


076376 








BLDFAS:: 




4707 


076376 
076376 
076400 


014501 
014502 






P$P0P 


R1.R2 


4708 














4709 


076402 


013704 


024224 




MOV 


XRGNXT. R4 


4710 


076406 


016404 


000004 




MOV 


L0ADD(R4),R4 


4711 


076412 


013703 


002374 




MOV 


PISI2E.R3 


4712 


076416 


062703 


000060 




ADO 


«60.R3 


4713 


076422 


010337 


050324 




MOV 


R3 . XFER 


4714 


076426 


162737 


000016 


050324 


SUB 


«16.XFER 


4715 


076434 


022703 


001100 




CMP 


•XPKLEN.RS 


4716 


076440 


002524 






BLT 


10 > 


4717 


076442 


010337 


050332 




MOV 


R3.BUFLEN 


4718 


076446 


011264 


000000 




MOV 


(R2).0ESTIN(R4) 


4719 


076452 


016264 


000002 


000002 


MOV 


2(R2).DESTIN*2(R4) 


4720 


076460 


016264 


000004 


000004 


MOV 


4(R2).0ESTIN»4fR4) 


4721 


076466 


005064 


000006 




CLR 


S0URCC(R4) 


4722 


076472 


005064 


000010 




CLR 


S0URCC»2(R4) 


4723 


076476 


005064 


000012 




CLR 


S0URCC»4(R4) 


4724 


076502 


013764 


050306 


000014 


MOV 


PR0TOO,PR0T0T(R4) 


4725 


076510 


012764 


OOOCOO 


000016 


MOV 


*0.FASKIP(R4) 


4726 


076516 


012764 


000002 


000020 


MOV 


•2.FAFCT1(R4) 


4727 


076524 


011164 


000022 




MOV 


(R1).FAADR1(R4) 


4728 


076530 


016164 


000002 


000024 


MOV 


2(R1).FAADR1»2(R4) 


4729 


076536 


016164 


000004 


000026 


MOV 


4(R1).FAA0R1»4(R4) 


4730 


076544 


012764 


000002 


000030 


MOV 


•2.FAFCT2(R4) 


4731 


076552 


011264 


000032 




MOV 


(R2).FAADR2(R4) 


4732 


076556 


016264 


000002 


000034 


MOV 


2(R2),FAA0R2*2(R4) 


4733 


076564 


016264 


000004 


000036 


MOV 


4(R2).FAADR2*4(R4) 


4734 


076572 


012764 


000002 


000040 


MOV 


•2.FAFCT3(R4) 


4735 


076600 


013764 


004010 


000042 


nov 


PHYA0R.FAA0R3(R4) 



PUT ADDRESS OF TARGET ADDRESS INTO Rl 
MOV -(R5).R1 
MOV -(R5).R2 

AhO ADDRESS OF ASSIST ADDRESS INTO R2 
MOVE NEXT PACKET ADDRESS TO R4 
POINT R4 TO DATA BLOCK 
PUT MESSAGE SIZE INTO R3 
ADO HEADER INFO TO LENGTH 
PUT 'BYTES TRANSFERED' INTO UORO 

AND CORRECT FOR HEADER 
SEE IF LONGER THAN ONE PACKET 

IF YES ERROR 
PUT PACKET LENGTH IN BUFLEN 
MOVE FIRST TUO BYTES OF ADDRESS 
MOVE BYTES THREE AND FOUR 
huVE BYTES FIVE AND SIX 
LEAVE BLANK SPACE FOR SOURCE ADDRESS 
SIX BYTES UORTH 

MOVE PROTOCALL TYPE INTO HEADER 
SKIP COUNT 

FUNCTION CODE ( FORWARD) 
TARGET NODE ADDRESS 
SIX BYTES 

FUNCTION CODE ( FORWARD) 
ASSIST NODE ADDRESS 
SIX BYTES 



I FUNCTION CODE (FORWARD) 
t LOCAL NODE ADDRESS 



B9 
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ntiTi n 


PACKET FOR FULL 


A^^I^t 


rRANSHISSION 








013764 


004012 


000044 




HOV 


PHVADR*2.FAADR5>2(R4) 

Till ' ^ T 1 ^ » n n r» ^ ~ \ t i / 






013764 


004014 






MOV 


PHf ADR*4 .FAADRS>4(R4 ) 

Till n r ^ ▼ f ■ v^v^l^v ^ ^ ~ \ ' ^ / 




w ' wcc 


012764 


000001 


000050 




MOV 


•1 .FAFCT4(R4 ) 


4 75^ 




013764 


004010 


WW JC- 




MOV 


PHVAOR FAA0R4(R4) 

rill r^^#r^ ^ » *^r^^#» ^ \ ^¥ ^ 


4 740 




013764 


004012 


000054 




MOV 


PHYADR»2.FAA0R4*2(R4) 


4 741 


076644 


015764 


004014 


000056 




MOV 


PHYAOR •4 . FAA0R4 »4(R4 ) 


4 742 




062704 


000060 






ADD 


•FAADR4*6,R4 


4 745 


0766M 


010457 


050554 






MOV 


R4.CMPBUF 


4 744 


v • owe 










CALL 


BLDBUF R4 




V ' wvc 


010425 
















004457 


070656 












076670 


006756 












4 74S 


076672 










CALL 


GETXNX «0,«XRGNXT 




076672 


012725 


024224 












07b6 76 


012725 


000000 












076702 


004457 


070656 












076 706 


006554 












4746 


076710 


000404 








BR 


20 1 


4 747 


0"»6712 








lOS: 


ERROF 


29.EMSGt4.ERRl 




076712 


104455 














076714 


000055 














076716 


065774 














076720 


070506 












4748 


076722 








20t: 


RETURN 






076722 


000207 













SEQ 105 



SIX BYTES 



FUNCTION CODE (REPLr) 
LOCAL NODE ADDRESS 
SIX BYTES 

POINT R4 TO FIRST DATA BYTE 

STORE BUFFER LOCATION FOR DATA COMPARE 

BUILD DATA BUFFER 

MOV R4.CR5)' 
JSR R4.PREG14 
.UORD BLDBUF ANCHOR 

UPDATE POINTER TO NEXT RING ENTRY 



MOV 
MOV 
JSR 
.UORD 

EXIT 

MESSAGE SIZE TOD BIG 



•XRGNXT.vR5)* 
•O.CRS). 
R4.PREG14 
GETXNX ANCHOR 



TRAP 
.WORD 
.UORO 
.UORD 



C»ERD> 
29 

EMSG14 
ERRl 



RTS 



PC 



C9 



84 IS: 12 PAGE SS 



SEQ 106 



4 '50 
4751 
4 75^ 
4 753 
4754 
4 755 



.SBTTL BLDAST 
VuNCTIONAL DESCRIPTION: 



BUILD TRANSMIT AND RECEIVE ASSIST PACKETS 



THIS ROUTINE BUILDS RECEIVE ASSIST PACKETS 



4 756 


076724 








BLDAST • • 




4''57 


076724 








PIPOP 


R1.R2 




076724 


014501 












076726 


014502 










4 758 














4759 


076730 


013704 


024224 




NOV 


XRGNXT,R4 


4760 


076734 


016404 


000004 




MOV 


L0ADD(R4).R4 


4 761 


076740 


013703 


002374 




MOV 


P»SIZE.R3 


4762 


076744 


062703 


000050 




ADD 


•50. R3 


4763 


076750 


010337 


050324 




MOV 


R3.xrER 


4764 


076754 


162737 


000016 


050324 


SUB 


*16,xrER 


4765 


076762 


022703 


001100 




CMP 


«XPKLEN.R3 


4766 


076766 


002511 






BLT 


lot 


4767 


076770 


010337 


050332 




MOV 


R3,BUFLEN 


4768 


076774 


011164 


000000 




MOV 


(R1).DESTIN(R4} 


4769 


077000 


016164 


000002 


000002 


MOV 


2(R1).DESTIN*2(R4) 


4770 


077006 


016164 


000004 


000004 


MOV 


4(R1),DESTIN*4(R4) 


4771 


077014 


005064 


000006 




CLR 


S0URCC(R4) 


4772 


077020 


005064 


000010 




CLR 


S0URCC*2(R4) 


4775 


077024 


005064 


000012 




CLR 


S0URCC*4(R4) 


4774 


077030 


013764 


050306 


000014 


MOV 


PR0TOO.PR0T0T(R4) 


4775 


077036 


012764 


000000 


000016 


MOV 


•0.rASKIP(R4) 


4776 


077044 


012764 


000002 


000020 


MOV 


*2,rAFCTl(R4) 


4777 


077052 


011264 


000022 




MOV 


(R2),rAA0Rl(R4} 


4778 


077056 


016264 


000002 


000024 


MOV 


2(R2),rAA0Rl*2(R4) 


4779 


077064 


016264 


000004 


000026 


MOV 


4(R2),rAA0Rl»4(R4) 


4780 


077072 


012764 


000002 


000030 


MOV 


•2,rAFCT2(R4) 


4781 


077100 


013764 


004010 


000032 


MOV 


PHYA0R.F'AADR2(R4) 


4782 


077106 


013764 


004012 


000034 


MOV 


PHY ADR * 2 . r AADR2 • 2( R4 ) 


4783 


077114 


013764 


004014 


000036 


MOV 


PHYADR»4,rAA0R2*4(R4) 


4784 


077122 


012764 


000001 


000040 


MOV 


•l.rAFCT3(R4) 


4785 


077130 


013764 


004010 


000042 


MOV 


PHVA0R.FAA0R3(R4t 


4786 


077136 


013764 


004012 


000044 


MOV 


PHYADR *2 .FAADRS »2( R4 ) 


4787 


077144 


013764 


004014 


000046 


MOV 


PHYA0R»4.FAADR5*4(R4) 


4788 


077152 


062704 


000050 




ADD 


•f AADRS*6.R4 


4789 


077156 


010437 


050334 




MOV 


R4.CMP8UF 


4790 


077162 








CALL 


BLDBUf R4 




077162 


010425 












077164 


004437 


070656 










077170 


006756 











I PUT DESTINATION ADDRESS INTO Rl 
MOV -(R5).Rl 
MOV -(R5).R2 

ASSIST ADDRESS INTO R2 
MOVE NEXT PACKET ADDRESS TO R4 
POINT R4 TO DATA BLOCK 
PUT MESSAGE SIZE INTO R3 
ADD HEADER INTO INTO LENGTH 
PUT 'BYTES TRANSfERED INTO UORO 

AND CORRECT FOR HEADER 
SEE If LONGER THAN ONE PACKET 

IF YES ERROR 
PUT PACKET LENGTH INTO BUFLEN 
MOVE DESTINATION ADDRESS INTO HEADER 

SIX BYTES MOR^H 

LEAVE BLANK SPACE FOR SOURCE ADDRESS 
SIX BYTES WORTH 

MOVE PROTOCALL TYPE INTO HEADER 
SKIP COUNT 

FUNCTION CODE (FORWARD) 
TARGET NODE ADDRESS 
SIX BYTES 

FUNCTION CODE (FORWARD) 
LOCAL NODE ADDRESS 
SIX BYTES WORTH 

FUNCTION CODE (REPLY) 
LOCAL NODE ADDRESS 



POINT R4 TO FIRST DATA Bt TE 

STORE BUFFER LOCATION FQR DATA COMPARE 

BUILD DATA BUFFER 

MOV R4 . ( R5 ) . 

JSR R4.PREG14 
.WORD BlDBUF ANCHOR 



D9 

47<>1 077172 CALL GCTXNX •0.9XRGNXT 

CTl?? 010725 024224 

077176 012725 000000 

077202 004457 070656 

077206 006554 

4 792 077210 000404 BR 201 

4'<»5 07721? 101: ERRO> 56.tMbG14 ,LRR1 

077212 104455 

077214 000044 

077216 065774 

077220 070506 
47<»4 077222 201: RETURN 

077222 000207 



SFO 10 



UPDATE RING POINTER 

MOV #XRGNXT.(R5). 

MOV »0,(R5). 

JSR R4,PRfcG14 

.UORD GETXNX- ANCHOR 

MESSAGE SIZE TCO BIG ERROR 

TRAP C lEROF 

.WORD 36 

.UORO EMSG14 

.WORD ERRl 

RTS PC 
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BLDREQ • BUILD REQUEST ID PACKETS FOR TRANSMIT 



4 796 
4 797 
4798 
4 799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
4814 
4815 
4816 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 



4836 



.SBTTL 



E9 

PAGE 34 

BLDREQ - BUILD REQUEST ID PACKETS FOR TRANSMIT 



SEQ 108 



077224 
077224 
077230 
077234 
077242 
077246 
077252 
077256 
077262 
077266 
077272 
077276 
077304 
077310 
077314 
077320 
077324 
077324 
077330 
077334 
077340 
07734? 
077542 



013704 
016404 
012737 
012701 
012164 
012164 
011164 
005064 
005064 
005064 
013764 
012702 
012264 
012264 
011264 

012725 
012725 
004437 
006534 

000207 



024224 
000004 

000100 050332 

002316 

000000 

000002 

000004 

000006 

000010 

000012 

050310 000014 

050340 

000016 

000020 

000022 

024224 
000000 
070656 



i - 
I 
I 

t 

I 
I 

• 

I 
I 

• 

I 
i 
I 
i 



FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE BUILDS REQUEST ID PACKETS FOR TRANSMISSION 
FROM THE QNA. SOURCE ADDRESS. DESTINATION ADDRESS. 
PROTOCALL TYPE. SEQUENCE NUMBER AND REQUEST ID 
HEADER INFOR ARE BUILT IN THIS SUBROUTINE. 

INPUTS IMPLICIT - THE DESTINATION ADDRESS IS CONTAINED IN A0R6UF. 

OUTPUTS - BUILT MESSAGE PACKET 



CALLING PROCEDURE - CALL BLDREQ 

SIDE EFFECTS - THE MESSAGE PACKET IS BUILT AND CONTAINED IN THE 
BUFFER POINTED TO BY XRGNXT WHEN THE ROUTINE WAS 
ENTERED. XRGNXT IS UPDATED TO POINT TO THE NEXT ENTRY, 



REGISTER USAGE 



BLDREQ: 



RETURN 



Rl HOLDS ADDRESS OF DESTINAIION ADDRESS. 

R2 IS A POINTER FOR REQUEST ID HEADE9 INFO. 

R4 HOLDS ADDRESS OF NEXT RING ENTRY DATA BL^FER. 



MOVE NEXT PACKET ADDRESS TO R4 
POINT R4 TO DATA BLOCK 
MOVE BUFFER SIZE TC BUFlEN 
MOVE ADDRESS OF DE«"T. ADR. TO Rl 
MOVE FIRST TWO BYTt OF OEST. ADR. 

AND BYTES THREE AND FOUR 

AND LAST TWO BYTES 
LEAVE BLANK SPACE FOR SOURCE ADOR. 

SIX BYTES WORTH 

MOVE PROTOCALL TYPE INTO HEADER 
MOVE REQUEST ID HEADER LOG. TO R2 
BYTE COUNT 

FUNCTION CODE (REQUEST ID) 

RECEIPT NO. 
UPDATE POINTER TO NEXT RING ENTRY 

HOV »XRGNXT.(R5)> 
MOV •0.(R5)^ 
JSR R4.PREG14 
.UORD GETXNX ANCHOR 

RTS PC 



MOV 


XRGNXT. R4 


MOV 


L0A00(R4).R4 


MOV 


•100. BUFLEN 


MOV 


•AORBUF.Rl 


MOV 


(Rl)».0ESTIN(R4) 


MOV 


CR1)*.0ESTIN»2(R4) 


MOV 


CR1).DESTIN»4(R4) 


CLR 


S0ORCC(R4) 


CLR 


S0URCC>2(R4) 


CLR 


S0URCC»4(R4) 


MOV 


PR0TO2.PROTOT(R4) 


MOV 


•REQID.R2 


MOV 


(R2)*.HEADER(R4) 


MOV 


(R2)».HEA0ER*2(R4) 


MOV 


(R2).HEA0ER*4(R4) 


CALL 


GETXNX •0.«XRGNXT 



F9 



4830 

4834 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

484 

4848 

4849 

4850 

4851 

4852 

4855 

4854 

4855 

4856 

4857 

4858 

4859 

4860 

4861 

4862 

486 S 

4864 

4865 
4866 
4867 
4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4860 

4881 
4862 
4663 
4664 

4665 
4866 
4867 
4886 
4869 
4690 
4691 



077344 
077344 
077350 
077354 
077354 
077356 
077360 
077360 
077364 
077370 
077374 
077400 
077406 
077410 
077412 
077420 
077422 
077422 
077426 
077430 
077430 
077430 
077432 
077436 
077442 
077442 
077442 
077444 
077446 
077450 
077454 
077460 
077462 
077466 



013701 
013702 

014S03 
001431 

013703 
005063 
005063 
005063 
012763 
020203 
001404 
062737 
000410 

010137 
000405 



014503 
015701 
013702 



014503 
021302 
001437 
062713 
020327 
001073 
012704 
062704 
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GET7NX • GET NEXT TRANSMIT OR RECEIVE RING ENTRr 



SEQ 109 



FUNCTIONAL DESCRIPTION 

THIS SUBROUTINE GETS THE NEXT TRANSHIT OR RECEIVE RIHC> 
ENTRY. IT IS ENTERED AT SEPERATE POINTS DEPENDING ON 
WHICH RING IS BEING USED. 



INPUTS 



OUTPUTS 



PI FLAG INDICATING IF THE PREVIOUS DESCRIPTOR NEEDS REVALIDATING 
P2 THE ADDRESS OF THE RING POINTER TO BE UPDATED. 

THE RING POINTER IS UPDATED TO POINT TO THE NEXT AVAILABLE 
ENTRT, 



CALLING PROCEDURE 



CALL GETXNX •Pl.«P2 t FOR TRANSMIT UPDATES 

CALL GETRNX «P1. •P2 t FOR RECEIVE UPDATES 



SIDE EFFECTS - NONE 



024216 
0242S2 



024234 
000000 
000010 
000012 

100000 000002 



000014 024234 



i REGISTER USAGE 

s 

t 

GETRNX: 



RNXPRV : 



Rl POINTS TO THE FIRST ENTRY IN THE RING 

R2 POINTS TO THE LAST ENTRY IN THE RING 

R3 IS THE ADDRESS OF THE RING POINTER TO BE UPDATED 



0242S4 



024214 
024230 



000014 
024226 

024226 
000014 



101: 



GETXNX: 



GETCOM: 



MOV 


RRGSRT ,R1 


i 


MOVE FIRST RING ENTRY TO Rl 


MOV 


RRGLST ,R2 


1 


MOVE LAST RING ENTRY TO R2 




ox 


( 


dnu^^U MC VHLIUHIC. "HCVXUU3 UC^LnXrll^ 








MOV -(R5}.R3 


BEQ 


GETCOM 


t 


BRANCH IF NOT 


MOV 


RRGPRV.R3 


• 


ELSE. GET PREVIOUS DESCRIPTOR 


CLR 


FLAG(R3) 


• 


RE INI T THE FLAG 


CLR 


STAT1(R3) 




REINIT THE STATUS 


CLR 


STAT2(R3) 


• 


REINIT STATUS 2 


MOV 


•MVALID.DESC(R3) 




VALIDATE IT 


CMP 


R2.R3 




IS THIS THE LAST DATA DESCRIPTOR? 


BEQ 


10 » 




BRANCH IF YES 


ADD 


•12. .RRGPRV 




ELSE UPDATE PREVIOUS POINTER 


BR 


GETCOM 




AND 00 COMMON STUFF 


MOV 


Rl. RRGPRV 




LAST ENTRY. POINT TO START OF LIST 


BR 


GETCOM 




GO TO COMMON MODE 


PIPOP 


R3 




THROU AWAY FIRST PARAMETER 








MOV (R5).R3 


MOV 


XRGSRT.Rl 




MOVE FIRST RING ENTRY TO Rl 


MOV 


XRGLST.R2 




MOVE LAST RING ENTRY TO R2 


PIPOP 


R3 




GET ADDRESS OF RING POINTER IN R3 








MOV -(R5).R3 


CMP 


(R3),R2 




SEE IF POINTER POINTS TO LAST RING 


BEQ 


10* 




IF YES. BRANCH 


ADO 


•12. .(R3) 




ELSE. ADD ENTRY LENGTH TO POINTER 


CMP 


R3.«RRGNXT 




IS THIS THE NEXT RECEIVE POINTER? 


BNE 


20* 




BRANCH IF NOT 


MOV 


•RRGNXT.R4 




ELSE GET NEXT RING DESCRIPTOR 


ADO 


•14.R4 




POINT TO NEXT DESCRIPTOR 



G9 
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4092 
4893 
4894 
4895 
4896 

4897 
4898 
4899 
4900 
4901 
4902 
4903 



4904 
4905 
4906 
4907 
4908 
4909 
4910 



4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 

4926 
4927 
4928 



077472 
077476 
077500 
077502 
077510 
077510 
077514 
07 7516 
077516 
077524 
077526 
077532 
077534 
077534 
077536 
077540 
077542 
077544 
077546 
077546 
077552 
077554 
077560 
077562 
077562 
077564 
077566 
077570 
077572 
077572 
077576 
077600 
077604 
077604 
077606 
077612 
077614 
077620 
077624 
077630 
077632 
077634 
077642 
077642 
077646 
077650 
077650 
077650 



005764 
100407 
001406 
06273 7 

012725 
000721 

023737 
002051 
005737 
001046 

104456 
000077 
066526 
000000 
000441 

022713 
001007 
005337 
100004 

104456 

000077 
066526 
000000 

022713 
001002 
005237 

010113 
022703 
001016 
012704 
062704 
005764 
100407 
001406 
062737 

012725 
000644 



000207 



000002 

000014 024226 
024226 

024222 024226 
050336 



5$i 



024226 
050336 



101: 



024222 
050336 

024226 

024226 
000014 
000002 

000014 024226 
024226 



12<: 



181; 



20); 



TST 
BMI 
BEQ 
AOO 

PIPUSH 

BR 

CMP 
BGE 
TST 
BNE 

ERRHRO 



BR 

CMP 
BNE 
DEC 
BPL 

ERRHRO 



CMP 
BNE 

INC 

MOV 
CMP 
BNE 
MOV 
AOO 
TST 
BMI 
BEQ 
AOO 

PIPUSH 
BR 

RETURN 



DESC(R4) 

5» 

5$ 

«14,RRGNXT 
«RRGNXT 

RNXPRV 

RRGCUR.RRGNXT 
20) 

LAPCNT 
20) 

63.EMSG63 



20) 

«RRGNXT.(R3) 
12) 

LAPCNT 
12) 

63,EMSG63 



♦RRGCUR.(R3) 
18) 

LAPCNT 

R1.CR3) 
«R'1GNXT,R3 

20 ; 

«RRGNXT,R4 
•14. R4 

DESC(R4) 

20) 

20) 

«14,RRGNXT 
«RRGNXT 

RNXPRV 



IS IT A THROW AWAY? 

BRANCH IF STILL VALID 

BRANCH IF IT IS NOT A THROUAUAY 

ELSE THROW IT AWAY 

PUT THE ADDRESS BACK ONTO THE PARAMETER STACK 

MOV •RRGNXT,(R5)* 
AND UPDATE RECEVE RING POINTERS AGAIN 

DID NEXT POINTER PASS BY CURRENT POINTER? 
IF NO. THEN EXIT 

ELSE, IS CURRENT POINTER A LAPCS) AHEAD? 
IF YES. THEN EXIT 
ELSE. REPORT ERROR 

TRAP OERHPD 
.WORD 63 
.WORD EMSG63 
.WORD 0 

; EXIT 

s IS THIS THE "NEXT RECEIVE DESCR ■ POINTER? 
: BRANCH IF NOT 

t ELSE, DECREMENT THE LAPCOUNT 

; BRANCH IF "CURRENT RCV OESCR" POINTER NOT PASSED 
! PRINT "NEXT POINTER PASSED BY CURRENT PONTER" 

TRAP OERHRO 

.WORD 63 

. WORD EMSG63 

.WORD 0 

1 IS THIS THE "CURRENT RCV OESC" POINTER? 
: BRANCH IF NOT 

: ELSE. INCREMENT THE LAP COUNTER 

; POINT POINTER TO FIRST ENTRY IN RING 

; IS THIS THE NEXT RECEIVE POINTER? 

t BRANCH IF NOT 

: GET NEXT RING DESCRIPTOR 

; POINT TO NEXT DESCRIPTOR 

t IS IT A THROW AWAY? 

: BRANCH IF STILL VALID 

; BRANCH IF IT IS NOT A T^AOUAWAY 

: ELSE THROW IT AWAY 

s PUT ADDRESS BACK ONTO PARAMETER STACK 
MOV dRRGNXT.CRS^. 

; GO UPDATE POINTERS AGAIN 



RTS PC 



1-19 
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SCO 111 



4«»S0 
4931 
4952 
4953 
4954 
4955 
4956 
4937 
4958 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 

4956 
4957 
4958 
4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 



077652 
077652 
077652 
077654 
077660 
077662 
077666 
077670 
077674 
077700 
077704 
077706 
077714 
077716 
077722 
077726 
077730 
077752 
077752 



014503 
015702 
006302 
013704 
060304 
016201 
005037 
005237 
112123 
026237 
001004 
016201 
005037 
020304 
001563 

000207 
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BLOBUF BUILD MESSAGE BUFFERS 



; FUNCTIONAL DESCRIPTION 

i THIS SJBPOUTINE CREATES A MESSAGE BUFFER TQ BE USED 

: FOR TRANSniSSION. 

INPUTS PI BUFFER LOCATION TO PUT BUILT MESSAGE 

IMPLICIT PISIZE CONTAINS THE SIZE THE BUFFER IS TO BE 
P»TYPE CONTAINS THE MESSAGE TYPE 
OUTPUTS - IMPLICIT - BUFFER STARTING AT LOCATION Pi CONTAINS A 

MESSAGE PISIZE BYTES LONG USING THE MESSAGE 
IrPt SPECIFIED BY PlTiPE, 

CALLING PROCEEOURE CALL BLOBUF Pi 

i SIDE EFFECTS NONE 

REGISTER USAGE - Rl POINTS TO THE NEXT BYTE OF STORED MESSAGE TO BE BUiLT 

IN THE MESSAGE BUFFER. 
R2 - (MESSAGE TYPE X 2). USED AS OFFSET FOR POINTERS 
R5 POINTS TO THE NEXT BYTE OF THE BUFFER UNDER CONSTRUCTION 
R4 POINTS TO THE LAST BYTE OF THE BUFFER UNDER CONSTRUCTION 
i 

BLDBUF : : 



002572 

002374 

003360 
050504 
050504 

003342 050504 

005560 
050504 



lot I 



20* ; 



P*POP 


R3 


S 


PUT BUFFER ADDRESS INTO R3 








MOV -(R5).R3 


MOV 


PITYPE.R2 


> 


PUT MESSAGE TYPE INTO R2 


ASL 


R2 


• 


MULTIPLY BY 2 


MOV 


PISIZE. R4 


> 


PUT SIZE INTO R4 


ADO 


R3.R4 


• 


MAKE R4 • LAST BYTE OF BUFFER 


MOV 


MSGAD(R2}.RI 


i 


POINT Rl TO FIRST BYTE OF STORED 


CLR 


COUNT 


i 


CLEAR BYTE COUNTER 


INC 


COUNT 


■ 


COUNT NO. or BYTES COPIED 


MOVB 


(R1)..(R3>. 


i 


PUT Byte in BUFFER 


CMP 


MS&CNTCR2). COUNT 


i 


ARE UE AT END OF bTOREO MESSAGE 


BNE 


201 


t 


IF NO. CHECK IF DONE 


MOV 


MSGA0(R2).Rl 


s 


ELSE. POINT Rl TO BEGINING 


CLR 


COUNT 


• 


AND CLEAR COUNTER 


CMP 


R3.R4 




IS BUFFER FILLED? 


BNE 


101 


• 


IF NO. LOOP 


RETURN 




• 


ELSE. RETURN 



RTS 



PC 



19 
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SEQ II? 



4<»"2 
49'5 
49 "4 
4«»'5 
49''6 
49" 
49'8 
4<»''? 
4990 
4991 
499^ 
4995 
4994 
4995 
4996 
498' 
4999 
4999 
4990 
4991 
4992 
4995 
4994 
4995 
4996 
4997 
4999 



4999 

5000 
5001 
5002 
5005 
5004 
5005 
^006 
5007 
5009 
5009 



5010 
5011 
5012 
5015 
5014 
5015 
5016 



077754 
077754 
077754 
0777S6 
077740 



077742 
077744 

077750 
077752 
077754 
077756 
077762 
077770 
077772 
077772 
077774 
077776 
100000 
100004 
100010 
100012 
100014 
100020 
100022 
100024 
100026 
lOOOSO 
100036 
100040 
100040 
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DATCMP - COMPARE DATA BUFFERS 



FUNCTIONAL DESCRIPTION 

THIS SUBROUTINE COMPARES TUO DATA BUFFERS BTTE BT ByTE. 
IF COMPARISON ERRORS OCCUREO. LOCATION. EXPECTED DATA 
AND RECEIVED DATA ARE PRINTED OUT FOR THE FIRST FIVE 
ERRORS. THE TOTAL NUMBER OF ERRORS IS ALSO PRINTED. 



INPUTS PI - THE SIZE (IN BYTES) OF THE BUFFER TO BE COMPARED. 

P2 - THF ADDRESS OF BUFFER TO COMPARE OTHER BUFFER AGAINST, 
P5 THE ADDRESS OF THE SECOND BUFFER. 

I OUTPUTS P4 TiiF NUMBER OF COMPARISON ERRORS. 

I CALLING PROCEDURE - CALL DATCMP Pl.P2.P5 
; P$POP P4 

SIDE EFFECTS NONE. 



REGISTER USAGE 



Rl CONTAINS THE COMPARE SIZE 

R2 CONTAINS THE ADDRESS OF THE ByTE BEING COMPARED IN BUFFER 1 

R5 CONTAINS THE ADDRESS OF THE BYTE BEING COMPARED IN B'JFFER 2 

R4 CONTAINS THE BYTE OFFSET (BYTES FROM BEGINING OF BUFFER 



DATCMP: 



014501 
014502 
014505 



005004 

005057 050514 
005204 
121215 
001421 

005257 050514 

022757 000005 050514 

002415 

011546 
011246 
010446 

012746 067602 
012746 000004 
010600 
104415 

062706 000012 

005202 

005205 

005501 

001550 

0227S7 000000 050514 
001412 

01S746 050514 



P$P0P R1,R2.R5 



PUT COMPARE SIZE IN Rl 

MOV (R5).R1 
MOV (R5).R2 
MOV (R5).R5 
BUFFER 1 ADDRESS IN R2 AND 
BUFFER 2 ADDRESS IN R5 



lOt: 



CLR 


R4 


1 


INITIALIZE BYTE OFFSET 


CLR 


TEMP 


t 


AND ERROR COUNTER 


INC 


R4 


t 


INCREMENT OFFSET COUNTER 


CMPB 


(R2).(R5) 


; 


COMPARE BUFFERS 


BEQ 


201 


• 


IF SAME. BRANCH 


INC 


TEMP 


• 


INCREMENT ERROR COUNTER 


CMP 


#5. TEMP 




IF MORE THAN 5 ERRORS. 


BLT 


20 » 




DONT PRINT MESSAGE 


PRINTX 


•CMPER1.R4,(R2).(R5) 




PRINT ERROR MESSAGE 



20»: 



INC 
INC 
DEC 
BNE 
CMP 
BEQ 
PRINTX 



R2 
R5 
Rl 
10» 

•O.TEMP 
50 1 

•CMPER2.TEMP 



INCREMENT BUFFER 1 
INCREMENT BUFFER 2 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 
POINTER 
POINTER 



(R5). (SP"« 
(R2). (SP) 
R4, (SP) 
•CMPERl. 
»4. (SP) 
SP.RO 
CIPNTX 
•12. SP 



(SP'< 



DECREMENT COMPARE SIZE 

IF NOT FINISHED. GO BACK FOR MORE 
WERE THERE ANi ERRORS? 

IF NO. EXIT 



MOV 



TEMP. .SP 



J9 
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100044 012746 0676^7 

100050 012746 000002 

100054 010600 

100056 104415 

100060 062706 000006 
5017 100064 50f: RETURN TEMP 

100064 013725 050314 

100070 000207 



SEQ 11? 



I RETURN UITH ERROR 
MOV 
RTS 



MOV #CMPER2. CSP) 
MOV •2. CSP) 

MOV SP.RO 
TRAP CiPNTX 
AOO •6.SP 
COUNT ON STACK 
TEMP.CR5). 
PC 



<9 
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SEQ 114 



5019 
5020 
5021 
5022 
5025 
5024 
5025 
5026 
502"' 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5030 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 

5049 
5050 
5051 

5052 
5053 



S0S4 
5055 
5056 
5057 
5056 
5059 



5060 

5061 
5062 
5063 
5064 
5065 
5066 



100072 
100072 
100076 
100104 
100106 
100106 
100 1 10 
100112 
100112 
100114 
100116 
100122 
100124 
100126 
100132 
100134 
100134 
100156 
100140 
100144 
100146 
100146 
100150 
100152 
100156 
100160 
100162 
100170 



014537 
023727 
001002 

014502 
000402 

014502 
014504 
012701 
005711 
001415 
021127 
001454 

010225 
010125 
004437 
026004 

014503 
001412 
062701 
000761 
011211 
016261 
016261 
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URITES - URITE DATA ONTO SUMMARY TABLE 



rUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE UPDATES THE SUMMARY TABLE DATA FOR 
THE NODES SPECIFIED IN THE CALL STATEMENT. EITHER ONE 
OR TWO NODES CAN UPDATED PER CALL. AFTER THE CALL, 
THE SUMMARY DATA COUNTERS ARE CLEARED. THE SUMMARY TABLE 
IS CHECKED FOR A MATCHING NODE ADDRESS AND UPDATES THE 
DATE FOR THAT NODE. OR ADDS THE NODE TO THE TABLE IF IT 
DOESN'T EXIT. AN ERROR IS REPORTED IF THE END OF THE TABLE 
IS REACHED. 



INPUTS PI THE NUMBER OF NODES TO UPDATE (1 OR 2). 

P2 - THE ADDRESS OF THE FIRST NODE ADDRESS. 
P5 THE ADDRESS OF THE SECOND NODE ADDRESS IF PI 
BLANK IF PI . 1. 

OUTPUTS - THE SUMMARY TABLE IS UPDATED. 



2 OR 



CALLING PROCEDURE - CALL WRITES P1.P2(.P3) 

SIDE EFFECTS - THE SUMMARY COUNTERS ARE CLEARED. 

REGISTER USAGE - Rl POINTS TO THE CURRENT LOCATION IN THE SUMMARY TABLE. 

R2 POINTS TO THE NODE TO BE UPDATED' S ADDRESS. 
R5 IS SCRATCH 

R4 HOLDS THE SECOND NODE TO BE UPDATED ADDRESS. 



050314 
050314 



000001 



WRITES: PIPOP 

CMP 
BNE 
P$POP 



002714 
177777 

070656 

000026 



000002 
000004 



10*1 



201: 
50$: 



BR 20$ 
P$P0P 



MOV 
TST 
BEQ 
CMP 
BEQ 
CALL 



TEMP 

TEMP.»1 

10$ 

R2 



R2.R4 



•STATBL.Rl 

(Rl) 

40$ 

(Rl).#-1 
80$ 

CMPADR R1.R2 



t SEE HOW MANY NODES TO URITE 

MOV -(R5).TEMP 
i IF ONLY ONE. GET ADDRESS 



MOV 



(R5).R2 



P$POP R3 



000002 
000004 



40$; 



BEQ 

ADD 

BR 

MOV 

MOV 

MOV 



50$ 

«26,R1 
30$ 

(R2).(R1) 

2(R2).2(R1) 

4(R2).4(R1) 



: IF TWO. GET BOTH ADDRESSES 

MOV -{R5).R2 
MOV -(R5).R4 

: MOVE STATISTICAL TABLE ADDRESS INTO Rl 

; SEE IF SLOT IS EMPTY 

: IF YES. BR 

: SEE IF TABLE FULL 

t IF YES. ERROR 

: LOOK FOR MATCHING ADDRESS 

MOV R2.(R5)» 
MOV R1.(R5)* 
JSR R4.PREG14 
. WORD CMPADR - ANCHOR 

MOV -CR5).R3 

t IF YES. BR 

I ELSE. POINT Rl TO NEXT ENTRY 

: AND C >. V AGAIN 

I ADD N. w)RESS TO TABLE 

I SIX Bi IkS WORTH 

i 



L9 
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5067 


100176 


062701 


000006 


501: 


ADD 


•6.R1 


5066 


100202 


063721 


050032 




ADD 


S.NREC.CRD* 


5069 


100206 


063721 


050030 




ADD 


S.REC.CRD* 


5070 


100212 


063721 


050034 




ADD 


S.LEN.(Rl)* 


5071 


100216 


063721 


050056 




ADD 


S.COMP.CRD* 


5072 


100222 


063721 


050040 




ADO 


S.BYTE.CRD* 


5073 


100226 


103001 






BCC 


60$ 


5074 


100250 


005511 






ADC 


(RI) 


5075 


100232 


062701 


000002 


60$: 


ADD 


•2.R1 


5076 


100256 


063721 


050042 




ADD 


S.XFER.CRD* 


5077 


100242 


103001 






BCC 


70$ 


50 7S 


100244 


0055H 






ADC 


(Rl) 


5079 


100246 


062701 


000002 


70$: 


ADD 


«2.R1 


5080 


100252 


005557 


050514 




DEC 


TEMP 


5081 


100256 


001414 






BEQ 


90$ 


5082 


100260 


010402 






MOV 


R4.R2 


5083 


100262 


000715 






BR 


20$ 


5084 


100264 






80$: 


PRINTF 


*TABFUL,«SUMM 




100264 


012746 


055422 










100270 


012746 


055274 










100274 


012746 


000002 










100500 


010600 












100502 


104417 












100504 


062706 


000006 








5085 


100510 


005057 


050052 


90$: 


CLR 


S.NREC 


5066 


100514 


005057 


050050 




CLR 


S.REC 


5087 


100520 


005057 


050054 




CLR 


S.LEN 


5068 


100524 


005057 


050056 




CLR 


S.COMP 


5089 


100550 


005057 


050040 




CLR 


S.BYTE 


5090 


100554 


005057 


050042 




CLR 


S.XFER 


5091 


100540 








RETURN 






100540 


000207 











SEQ 115 



I POINT Rl TO DATA 

J UPDATE SUMMARY DATA. RECEIVES NOT COMPLETE 

I RECEIVES COMPLETE 

I LENGTH ERRORS 

I COMPARE ERRORS 

t BYTES COMPARED 

I IF OVERFLOW. INCREMENT NEXT WORD 

I POINT Rl TO NEXT DATA 
I BYTES TRANSFERED 

i IF OVERFLOW, INCREMENT NEXT WORD 

i POINT Rl TO NEXT DATA 

i OECR NO OF NODES COUNTER 

: IF NO MORE. EXIT 

: POINT R2 TO NEXT NODE 

i AND UPDATE SUMMARY DATA 

J PRINT TABLE FULL MESSAGE 

MOV *SUMM, (SP) 

MOV •TABFUL. (SP) 

MOV 92. (SP) 

MOV SP.RO 
TRAP CJPNTF 
ADD *6 . SP 

i CLEAR SUMMARY DATA COUNTERS 



RTS PC 



M9 
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SEQ 116 



5093 






5094 






5095 






5096 






5097 






5098 






5099 






5100 






5101 






5102 






5103 






5104 






5105 






5106 






5107 






5106 






5109 






5110 






5111 






5112 






5113 


100342 




5114 


100342 






100342 


014501 


5115 


100344 


010546 


5116 


100346 


010102 


5117 


100350 


062702 


5116 


100354 


012703 


5119 


100360 


012704 


5120 


100364 


012705 


5121 


100370 


012737 


5122 


100376 


005037 


5123 


100402 


161411 


5124 


100404 


005612 


5125 


100406 


161512 


5126 


100410 


002403 


5127 


100412 


005237 


5126 


100416 


000771 


5129 


100420 


062411 


5130 


100422 


005512 


5131 


100424 


062412 


5132 


100426 


022525 


5133 


100430 


052737 


5134 


100436 


113723 


5135 


100442 


005327 


5136 


100444 


000000 


5137 


100446 


001353 


5138 


100450 


105023 


5139 


100452 


012605 


5140 


100454 






100454 


000207 


5141 


100456 




5142 


100456 


145000 


5143 


100460 


035632 


5144 


100462 


160400 


5145 


100464 


002765 


5146 


100466 


113200 


5147 


100470 


000230 



.SBTTL BINOEC CONVERT A 32 BIT BINARY NUMBER TO DECIMAL 

! FUNCTIONAL DESCRIPTION: 

THIS SUBROUTINE CONVERTS A 32 BIT BINARY NUMBER TO 
A DECIMAL NUMBER REPRESENTED AS AN ASCIZ STRING. 

INPUTS - PI - THE ADDRESS OF THE FIRST WORD OF BINARY DATA 

BITS 0-15. THE SECOND WORD. BITS 16-31, IS 
EXPECTED TO IMMEDIATELY FOLLOW THE FIRST WORD. 

OUTPUTS - THE ASCII STRING WILL BE LOCATED STARTING AT DECSTR 

SIDE EFFECTS - NONE 

REGISTER USAGE - Rl POINTS TO BITS 0-15 OF BINARY DATA 
R2 POINTS TO BITS 16-31 OF BINARY DATA 
R3 POINTS TO THE OUTPUT STRING 
R4 POINTS TO THE POWERS OF 10 TABLE 



BINDEC: 



000002 
100526 
100456 
100460 
000012 
100542 



100542 



000060 
100542 



100444 



101: 
20$: 



30$: 



100542 



40$: 



TENPWR: 





Rl 


• 


rUI HDDHcbb Ur HINMHY WUHU INIU HI 








MOV -IRSJ.Hl 


MOV 


R5.-(SP) 






MOV 


R1.R2 


f 


PUT ADDRESS OF SECOND WORD INTO R2 


MDD 








nuv 


irUcUb 1 K ,KO 


• 




nOV 


» TENPWR t Hh 


; 


ADDNcbb Or TcN rUWcR TAdLc 


nuv 


w 1 tNKWK *c « KD 






nov 








n D 


PAQT 




n TAQ PADTTAi rm MTPQ 


SUB 


(R4).(Rl) 




SUBTRACT 10 POWER 


SBC 


CR2) 






SUB 


(R5).(R2) 






BLT 


30$ 


s 


BRANCH IF 10 POWER TOO LARGE 


INC 


PART 




ELSE ADO 1 TO PARTIAL 


BR 


20$ 




LOOP 


ADD 


(R4)».(Rl) 




RESTORE BINARY WORDS 


ADC 


(R2) 




AND POINT R4 TO NEXT TABLE ENTRIES 


ADD 


(R4)».(R2) 






CMP 


(R5)»,(R5)» 






BIS 


O'O.PART 




CHANGE PARTIAL TO ASCII 


MOVB 


PART.(R3)» 


> 


AND PUT INTO OUTPUT STRING 


DEC 


(PC)» 


: 


HAVE WE DONE ALL 10 DIGITS 


.WORD 


0 






BNE 


10$ 


i 


IF NO. BRANCH 


CLRB 


CR3)» 


• 


IF YES. TERMINATE WITH ZERO 


MOV 


(SP)».R5 






RETURN 














RTS PC 


145000 




t 


1.0 E09 


35632 








160400 




1 


1.0 E08 


2765 








113200 




1 


1.0 E07 


230 









N9 
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SU6 


100472 


041100 


041100 


5149 


100474 


000017 


17 


5150 


100476 


103240 


103240 


5151 


100500 


000001 


1 


5152 


100502 


023420 


23420 


5153 


100504 


000000 


0 


5154 


100506 


001750 


1750 


5155 


100510 


000000 


0 


5156 


100512 


000144 


144 


5157 


100514 


000000 


0 


515S 


100516 


000012 


12 


5159 


100520 


000000 


0 


5160 


100522 


000001 


1 


5161 


100524 


000000 


0 


5162 








5163 


100526 




OECSTR: : .BLKB 


5164 


100542 


000000 


PART:: .WORD 



SEQ 117 



1.0 E06 
1.0 E05 
1.0 E04 
1.0 E03 
1.0 E02 
1.0 EOl 
1.0 EOO 



} 12 BYTES FOR ASCIZ OUTPUT STRING 
; PARTIAL COUNTER 



8 



VNIAAO 


OIQNA NI exEMCl 




IINE TRAVERSE t 








3lO ' 






9 loo 












71 < U 






91 < 1 






31 'c 






31 ' 9 






31 < * 






<\1 ^C 

31 3 






31 






CI 7 7 

31 1 > 






CI 711 

31 ' 9 






Cl '*0 
31 ^ 






CI An 

310v 






3101 






CI A3 

3 lOc 






Cl AV 

31B3 






Cl AA 
3104 


100544 




Cl AC 

3103 


100544 


013704 


Cl Ai« 
3100 


100550 


013703 


Cl A7 

310 ' 


100554 


121327 


Cl AA 

3100 


100560 


003405 


m AO 

3 107 


100562 


105714 


Cl on 

31 lW 


100564 


001441 


Cl 01 

3l7l 


100566 


121327 


Cl 03 
3l7C 


100572 


003023 


Cl 

31 73 


100574 


111301 


Cl OA 
317^ 


100576 


006301 


Cl OC 

31'»3 


100600 


016101 


3 l^O 


100604 


062701 


Cl Q7 

3 1 T ' 


100610 


004711 


C 1 QA 

3 1 


100612 


000760 


Cl OQ 

3 1 TTf 






^300 
Jew 






3c VI 


100614 


000114 


^303 


100616 


000134 


^3n< 


100620 


000152 


^30A 
3cV^ 


100622 


000162 


S30S 
Jew J 


100624 


000204 


^30#\ 


100626 


000270 


S307 
Jew • 


100650 


000612 


C3nA 


1006S2 


000656 


C3AQ 


100634 


000270 


C3m 
3clU 


100636 


000256 


3c 1 1 


100640 


000744 


^313 
3c Ic 






C31 < 

3c 13 






S31 A 
3c 1^ 






S31 
3c 13 


100642 


121314 


Jc 1« 


100644 


001403 


^3* 7 

3c' • 


100646 


004737 


C31 A 

3c lO 


100652 


000740 


JC L ' 


100654 


005204 


5220 


100656 


004737 


5221 


100662 


062 703 


5222 







003204 
003206 
000003 



000013 



100614 
100614 



100712 



100672 
000004 



BIO 

ni200 ?2 MAR B4 iS:12 PAGE 40 



SEO 116 



.SBTTL 



COrVIAND LINE TRAVERSE ROUTINES 



PITRV SUBROUTINE 

PARSE THE COHMANO LINE SUBROUTINE 
TAKE ACTIONS (VIA ACTION TREE) AS PARSING LINE 
PARSING DIRECTIONS FROM "CLI PARSING NODES' 
REGS USED: 

Rl RS'SCRATCH 

R2-ACTI0N CODE PARAMETER FROM TREE 
R3*PARSE TREE POINTER 
R4- INPUT STRING POINTER 
CALLING SEQUENCE: 



P*NUM«NUMERIC CODE FROM DATA 



JSR 



PC.PITRV 



PITRV: 

MOV 
MOV 
P«TR5: CMPB 
BLE 
TSTB 
BEQ 
CMPB 
BGT 

101: MOVB 
ASL 
MOV 
ADO 
JSR 
BR 



PIBUTA.RA 

PITREE.R5 

(R3),»3 

101 

(R4) 

P»EXIT 

(R3),«ll. 

50 ♦ 

CR5).R1 
Rl 

20»(RI).R1 
♦201. Rl 
PC.(Rl) 
PITR5 



iSEE IF ONE or FIRST THREE SPECIAL COOES 
I IF YES. DON'T CHECK INPUT STRING 
I SEE IF ANY CHARS LEFT IN INPUT STRING 
iBR IF NO 

,SEE IF SPECIAL CLI CHAR CODE Oft ASCII 
iBR IF REGULAR ASCII CHAR. 
iGET SPECIAL CHAR CODE INTO R5 

i BUILD TRAVERSE ROUTINE ADDRESS 

I JSR TO SPECIAL CLI TRAVERSE ROUTINE 
I GO SEE IF MORE OF STRING LEFT 



201: 



.WORD 
.WORD 
.WORD 
.WORD 
.UORO 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



TRVERR 201 
TRVEXI'20t 
TRVBR-20t 
TRVPXF 201 
TSvSPA-20$ 
TRVNUM 201 
TRVALP-201 
TRvALN-201 
TRVOCT 20$ 
TRVDEC 20 < 
TRVSTR 201 



I TRAVERSE TABLE FQR 

tl 

|2 

(5 

(4 

«5 

i6 

;7 

(6 

j9 

«10 



CLI FUNCTIONS' 



{NOT A SPECIAL CODE 



50»i 



40i: 



CMPB 
BEQ 

JSR 

BR 

INC 

JSR 

ADD 



(R5).(R4) 
401 

PC.TRVBRC 

PITR5 

R4 

PC.TRVACT 
•4.R5 



iSEE IF FIRST CHAR OF STRING IS A MATCi- 
iBR IF A MATCH 

i IF NOT A MATCH. GO TAKE MISS BRANCH 

i THEN GO BACK PTG TO MISS NODE 

I IF A MATCH. INCR. CHAR POINTER 

I GO DO ACTION DEFINED Bt 

I ACTION CODE IN CLI NODE. ThEN 

I ADJUST PTR TO NEXT Cl I NODE 



CIO 
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100666 


000752 








100670 


000207 




PSEXIT* RTS PC 




















t * " 




















iGOTO U^FR ACTION RnuTINE 


5250 


100672 


116302 


000001 


TRVACT: HOVB 1(R5),R2 




100676 


042702 


177400 


BTC •177400. R2 




100702 


013701 


005210 


nOV PtACT.Rl 




100706 


004711 




JSR PC. CRD 




100710 


000207 




RTS PC 












5236 








iTAKE BRANCH IN TREE 


5237 


100712 


016501 


000002 


TRVBRC: noV 2(R5).R1 


S2Sa 


100716 


060105 




ADD R1.R3 


5239 


100720 


000207 




RTS PC 


5240 










5241 








iNO BRANCH TAKEN 


5242 


100722 


062705 


000004 


TRVNOB: ADD M.RS 


5243 


100726 


000207 




RTS PC 


5244 










5245 








|....... .. 










I ERROR HANDLING 


5247 


100730 


004757 


100672 


TRVERR* JSR PC TRVACT 


S24S 


100734 


112737 


177777 


00S221 nOVB •-1.PIGDBD 

^ 'W WC C A ■ V O w A • * V WWW 


5249 


100742 


005726 




TST (SP)* 


5250 


'00744 


000137 


100670 


jnp PIEXIT 


52 J 1 










5252 








lEXlT ACTION CODE 




100750 


004737 


100672 


TDwcyr . ICQ pr TRVACT 


5254 


100754 


105037 


005221 


CLRB PtGOBO 

WknB r w %#WW W 


5255 


100760 


005726 




TST (SP)* 


5256 


100762 


000157 


100670 


JMP PtEXir 


5257 










5256 








1 BRANCH ACTION CODE 


5259 


100766 


004757 


100672 


TRVBR' JSR PC TRVACT 


5260 


100772 


000157 


100712 


JMP TRVBRC 


5261 










5262 








(BRANCH -IF ACTION CODE 


5263 


100776 


004757 


100672 


TRVBIF* JSR PC TRVACT 


5264 


101002 


105757 


005221 


TSTB PIGOfiD 


5265 


101006 


001402 




BEQ 10 t 


5266 


101010 


000157 


100712 


JMP TRvBRC 


5267 


101014 


000157 


100722 


lOi • JMP TRvNOS 


5266 










5269 








i SPACE ACTION CODE 

§ 1 A w*^ Wwwb 


5270 


101020 


005001 




TRVSPA* CLR Rl 


5271 


101022 


121427 


000011 


101 • CMPB (04) All 


5272 


101026 


OOlOOS 




BNE 201 


5273 


1 A1 ASA 


003c04 




INC R4 


5274 


101032 


005201 




INC Rl 


5275 


101034 


000772 




BR 10< 


5276 










5277 


101036 


121427 


000040 


20»! CMPB (R4).»40 


5276 


101042 


001005 




BNE sot 


5279 


101044 


005204 




INC R4 



SCO 119 



(RETURN FROM PARSER 



tCET ACTION CODE FROM CLI NODE 
I CLEAR ANY SIGN EXTENSION 
I GET ADDRESS OF CLI ACTION ROUTINE 
iGO DO ACTION DEFINED Bv CODE 
(RETURN TO CALLING CODE 



iGET BRANCH DISPLACEMENT FROM TREE 
I AND POINT R3 TO THE "MISS" NODE 
( RETURN TO PfTRV 



(THINGS OK, UPDATE RS TO POINT TO NEXT 
( NODE AND RETURN TO P$TRv 



(TAKE ERROR ACTION 

(SET ERROR RETURN FLAG 

(GET RID OF "JSR PUSH TO TRvERR' 

(RETURN DIRECT TO EXIT OF PtTRV ROUTINE 



(TAKE EXIT ACTION 

(SET GOOD/BAD FLAG TO "SUCCESS (0) ' 
(GET RIO OF "JSR PUSH TO TRVEXI 
(RETURN DIRECT TO EXIT OF P$TRv ROUTINE 



(GO TAKE BRANCH ACTION 



(SEE IF PIGOBD SET OR CLEARED B» ACTION 
(IF CLEAR FALL THRU TO NEXT NODE 
(ELSE TAKE THE "MISS' BRANCH 
(JUST UPDATE TO NEXT NODE IF THINGS OK 



(CLEAR "SPACE OR TAB FOUND" FLAG 
(SEE IF CHAR. IN CMD LINE- TAB 
(BR IF NO, NOT A TAB 
(INC INPUT STRING POINTER 
(INDICATE A TAB FOUND 
(GO CHECK NEXT CHAR 

(SEE IF CHAR. IN CMD LINE- SPACF 

(BR IF NO. NON SPACE OR NON TAB CHAR. 

(INC INPUT STRING POINTER 
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» 1 1^0 



5283 
5284 

5285 
5286 
5287 
5268 
5289 
5290 
5291 
5292 
5293 

5294 
5295 
5296 
5297 
5298 
5299 
5300 
5301 
5302 
5503 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
5311 



5312 
5313 
5314 

5315 
5316 
5317 
5318 
5319 
5320 
5321 
5322 
5323 
5324 
5325 
5326 
5327 
5328 
5329 
5330 



101052 
101054 
101056 
101062 
101066 



101072 
101100 
101104 
101104 
101112 
101112 
101114 
101116 
101122 
101124 
101126 
101132 
101134 
101142 

101144 

101150 
101152 
101156 
101160 
101166 
101170 
101174 
101176 
101176 
101202 
101206 
101210 
101212 
101216 
101224 

101226 
101232 
101234 
101236 
101240 

101242 
101244 
101246 

101250 
101252 
101256 
101260 
101264 
101270 
101272 



005201 
000764 
005701 
001404 
004737 
000137 
000137 



012737 
000137 



010546 
005001 
121427 
001001 
000406 
121427 
001004 
112737 
005204 

121427 
002434 
121427 
003426 
123727 
001417 
121427 
003022 

012746 
012746 
010600 
104417 
062706 
112737 
000475 

121427 
003003 
005204 
005201 
000741 

005701 
001465 
010405 
160105 
005037 
112502 
162702 
006337 
103440 
015737 



100672 
100722 
100712 



000012 
101112 



012757 000010 



000055 

000055 
177777 

000060 
000067 
003216 
000071 



052222 
000001 



000004 
177777 



000071 



003216 
005216 



005217 



000012 



003221 



003214 

00O060 
005214 

005214 005212 



INC Rl 

BR lot 

50»: TSI Rl 

BEQ 40* 

JSR PC.TRVACT 

JMP TRVN08 

40 ( : JMP TRVBRC 



TRVOEC: HOV «10. .PtRAOX 

JMP TRVNMA 

TRVOCT: ((SAME AS TRVNOM SINCE 

TRVNUri: MOV M. .PtRAQX 

TRVNMA: PUSH R5 

CLR Rl 

CMPB (R4).#". 

BNE 10* 

BR 20 > 

10»: CMPB (R4).#' 

BNE 50* 

MOVB ♦-l.PIRAOX»l 

20t: INC R4 

301: CMPB (R4).060 

BLT 60» 

CMPB (R4),067 

BLE 50* 

CMPB P»RA0X.«10. 

BEQ 40* 

CMPB (R4).#71 

BCT 60* 

PRINTF tfCLlBRX 



MOVB »-l.PtGOBO 

BR 110* 

40»: CMPB (R4),»71 

BGT 60 « 

501: INC R4 

INC Rl 

BR 30* 

60*: TST Rl 

BEQ 110* 

MOV R4.R5 

SUB RI.R5 

CLR P*NUM 

70* : MOVB (R5)..R2 

SUB «60.R2 

ASL P*NUM 

BCS 100* 

MOV PtNUM.PtCNT 



I INDICATE A SPACE FOUND 

I GO CHECK NEXT Char 

J SEE IF ANY SPACES OR TABS fOJUD 

iBR IF NO. TAKE NO ACTION 

iGO TAKE ACTION IF ANT FOUND 

J JUST GO UPDATE R3 TQ NEXT NODE IF OK 

I TAKE BRANCH (MISS) l^ NONE FQiJNO 



I USE DECIMAL AS RADIX AND ASSUME . 

DEFAULT RADIX IS OCTAL) 

I USE OCTAL AS RADIX AND ASSUME • 

MOV R5.-CSP) 
I CLEAR DIGIT COUNTER 
I SEE IF THERE'S A ♦ SIGN THERE 
I BR IF NO 

I ELSE P*RADX ALREADY SATS JUST BR 
J SEE IF THERE'S A - SIGN THERE 
J BR IF NO 

J SET "MINUS FLAG" (Ml BtTE OF PtRADx) 
jBUMP R4 TO POINT TO FIRST CHAR 

J SEE IF CHAR. LESS THAN A 'O' 
jBR IF YES (NOT NUMERIC) 
:SEE IF CHAR, GREATER THAN A /" 
s BR IF YES 

J SEE IF IN DECIMAL MODE 

I BR IF YES (CAN USE HIGHER LIMIT) 

sSEE IF DIGIT WAS A 8 OR 9 

:BR IF NON-NUMERIC 

;ELSE WAS A 8 OR 9 WHEN IN OCTAL RADIX 

MOV 
MOV 
MOV 
TRAP 
ADD 

I SET ERROR RETURN FLAG 
I PRINT ERROR AND TAKE MISS 



♦CLIBRX. (SP) 
»1.-(SP) 
SP.RO 
C*PNTF 
•4.SP 



:SEE IF CHAR. GREATER THAN A 9 

iBH IF YES (NOT NUMERIC) 

lUPOATE CMD LINE PTR TO NEXT CHAR. 

(INDICATE A NUMERIC FOUND 

iGO LOOK AT NEXT CHAR. 

I SEE IF FOUND ANY NUMERICS 

I BR IF NO. TAKE "MISS" BRANCH 

iGET POINTER TO START QF NUMERIC STRINL, 

(CLEAR LOC. WHERE VALUE WILL BE bTOREO 
iGET ASCII CHAR AND CONVERT IT »0 '\ * 

(SHIFT CURRENT VALUE TO MAKE ROOM 

(ERROR IF NUMBER TOO BIG 

(S.WE FOR LATER IN CASE DECIMAL RADIX 
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5331 
5352 
5333 
5334 
5335 
5336 
5337 
53SS 
5339 
5340 
5341 
5542 
5343 
5344 
5345 
5346 

5347 
5346 
5349 

5350 



5351 
5352 

5353 
5354 
5355 
5356 
5357 
5356 
5359 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
5367 
5366 
5369 
5370 
5371 
5372 
5373 
5374 
5375 
5376 
5377 
5376 
5379 
5360 



101300 
101504 
101306 
101312 
101314 
101322 
101324 
101352 
101354 
101540 
101542 
101544 
101546 
101552 
101554 
101560 
1015oO 
101562 
101566 

101572 
101572 
101576 
101402 
101404 
101406 
101412 
101420 
101420 
101422 



101426 
101450 
101454 
101456 
101442 
101444 
101446 
101450 
101452 
101454 
101456 
101462 
101466 

101472 
101474 

101500 
10150? 
lOlSOc 
101510 
101512 
10151' 
101516 
101522 
101524 



006337 
103432 
006337 
105427 
125727 
001004 
065757 
105417 
060257 
105414 
005501 
001544 
105757 
001402 
005457 

012605 
004757 
000157 



012746 
012746 
010600 
104417 

062706 
112757 

012605 
000157 



005001 
121427 
002406 
121427 
005005 
005204 
005201 
000767 
005701 
001404 
004757 
000157 
000157 

005001 
121427 
002417 
121427 
005005 
005204 
005201 
000767 
121427 
002406 
121427 



003214 
003214 

003216 000012 
005212 005214 
005214 

005217 
005214 



100672 
100722 



80»: 



90t: 



052175 
000001 



000004 

177777 005221 



100712 

000101 
000152 



loot: 
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ASL 

BCS 

ASL 

BCS 

CMPB 

BNE 

ADO 

BCS 

ADD 

BCS 

DEC 

BNE 

TSTB 

BEQ 

NEC 

POP 

jSR 
JMP 

PRINTF 



110»: 



MOVB 
POP 

JMP 



100672 
100722 
100712 



000060 
000072 

000101 
000132 



TRVALP: CLR 
10$: CMPB 
BLT 
CMPB 
BGT 
INC 
INC 
BR 

20$: TST 
BEQ 
JSR 
JMP 

30$: JMP 

TRVALN: CLR 
10$: CMPB 
BLT 
CMPB 
BGT 
INC 
INC 
BR 

20$: CMPB 
BLT 
CMPB 



SEQ 121 



(ERROR IF NUMBER TOO BIG 

(ERROR IF NUMBER TOO BIG 
(SEE IF DECIMAL RADIX 
(BR IF NOT EQUAL 

(ERROR IF NUMBER TOO BIG 

(ERROR IF NUMBER TOO BIG 



(SEE IF NUM WAS PRECEDED Bv A SIGN 
t BR IF NO 

( ELSE NEGATE THE NUMBER BEFORE LEAVING 
(RESTORE R5 

MOV (SP)*.R5 
(SINCE NUMERIC FOUND. GO TAKE ACTION 
(GO POINT R3 TO NEXT NODE 

(PRINT NUMBER TOO BIG ERROR 

MOV KLINBG. (SP) 
MOV #1. (SP) 
MOV SP.RO 
TRAP C$PNTr 
ADD «4.SP 

(SET ERROR RETURN FLAG 
(RESTORE R5 

MOV (SP)..R5 
(TAKE "MISS" BRANCH 



(CLEAR ALPHA FOUND FLAG 

(SEE IF CHAR. LESS THAN A "A • 

(BR IF YES (NOT ALPHA) 

(SEE IF CHAR. GREATER THAN A "Z" 

:BR IF YES (NOT ALPHA) 

(UPDATE CMD LINE PTR TO NEXT CHAR 

(INDICATE AN ALPHA WAS FOUND 

(GO LOOK AT NEXT CHAR. 

(SEE IF ANv ALPHA'S MERE FOUND 

( BR IF NO 

(IF ANY FOUND TAKE ACTION 

(THEN UPDATE R5 TO NEXT NODE NO BRANCH 

(NONE FOUND. TAKE MISS BRANCH 

(CLEAR ALPHANUM FOUND FLAG 

(SEE IF CHAR. LESS THAN A "0 " 

(BR IF YES (NOT NUMERIC OR ALPH'^) 

(SEE IF CHAR. GREATER THAN A '9" 

(BR IF YES (NOT NUMERIC) 

(UPDATE CMD LINE PTR TO NEXT CHAR. 

(INDICATE A NUMERIC FOUND 

(GO LOOK AT NEXT CHAR. 

(SEE IF CHAR. LESS THAN A "A* 

(BR IF TES (NOT ALPHA) 

(SEE IF CHAR. GREATER THAN A Z' 



5381 101550 O0SO03 BGT 

5382 101532 005204 INC 

5383 101554 005201 INC 
5564 101556 000756 BR 
5385 101540 005701 30$: TST 
5566 101542 001404 BEQ 

5587 101544 004757 100672 JSR 

5588 101550 000157 100722 JMP 

5589 101554 000157 100712 40$: JMP 

5590 101560 TRVSTR: PUSH 
101560 010546 

5591 101562 010401 MOV 

5592 101564 010505 MOV 
5595 101566 062705 000006 ADO 

5594 101572 005057 005212 CLR 

5595 101576 105715 10$: TSTB 

5596 101600 001411 BEQ 

5597 101602 105711 TSTB 
5596 101604 001407 BEQ 
5599 101606 121115 CMPB 

5400 101610 001005 BNE 

5401 101612 005257 005212 INC 

5402 101616 005201 INC 

5405 101620 005205 INC 
5404 101622 000765 BR 
5405 

5406 101624 005757 005212 20$: TST 

5407 101650 001407 BEQ 
5406 101652 010104 MOV 

5409 101654 POP 
101654 012605 

5410 101636 004757 100672 JSR 

5411 101642 066505 000004 ADO 

5412 101646 000207 RTS 
5413 

5414 101650 30$: POP 
101650 012605 

5415 101652 000157 100712 JMP 
5416 
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30$ 

R4 

Rl 

10$ 

Rl 

40$ 

PC.TRVACT 
TRVNOB 
TRVBRC 
R5 

R4,R1 

R3.R5 

♦6.R5 

P$CNT 

(R5) 

20$ 

(Rl) 

20$ 

(R1),(R5) 

20$ 

P$CNT 

Rl 

R5 

10$ 

P$CNT 
50$ 
R1.R4 
R5 

PC.TRVACT 
4(R3).R5 

PC 

R5 

TRVBRC 



SEQ 122 



I BR IF YES (NOT ALPHA) 

lUPOATE CW LINE PTR TQ NEXT CHAR 

I INDICATE AN ALPHA TOUNO 

jGO LOOK AT NEXT CHAR, 

I SEE ir ANY ALPHANUM'S UERE TOUNO 

I BR ir NO 

I IF ANY FOUND TAKE ACTION 

(THEN UPDATE R3 TO NEXT NODE -NO BRANCH 

(NONE FOUND. TAKE MISS BRANCH 

»SAVE R5 

MOV R5,-(SP) 
, POINT Rl TO CMD STRING 

jPOUNT R5 TO MATCH STRING FROM CLi NODE 

; CLEAR CHAR MATCH COUNT 

»SEE IF END OF MATCH STRING rET 

iBR IF YES 

I SEE IF END OF CMD LINE YET 
J BR IF YES 

J SEE IF CHARACTERS MATCH 
:BR IF NO 

jMATCH -INCREMENT MATCH COUNT 
i UPDATE STRING POINTERS 

iBR TO CONTINUE CHECKING CHARS. 

tUMEN DONE SEE IF ANT MATCHES FOUND 
J BR IF NO. GO TAKE THE MISS BRANCH 
(POINT CMD POINTER TO END OF STRING L 
; RESTORE R5 

MOV (SP)».R5 
sIF A MATCH FOUND. GO 00 MATCH ACTION 
{UPDATE R3 TO NEXT NODE (NO BRANCH) 
: (NO RETURN THRU TRVNOB SINCE DIFFERENT 
; DISPLACEMENT DUE TO MATCH STRING) 
J RE STORE R5 

MOV (SP)'.R5 

: GO TAKE BRANCH 

J (PARSED OK). 1 IF ILL CMD 
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541S 
5419 
5420 
5421 
5422 
5423 
5424 
5425 
5426 
5427 
5426 
5429 
54 SO 
54S1 
5452 
54SS 
5454 
5455 
5456 
5457 
5438 
5459 
5440 
5441 
5442 
5445 
5444 
5445 
5446 
5447 
5448 
5449 
5450 
5451 
5452 
5455 
5454 
5455 
5456 
5457 
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jFO 125 



.SBTTL TRVADR 



TRVAOR 



TRAVERSE COHMANO LINE INPUT ADDRESS 

TRAVERSE COMMAND LINE INPUT ADDRESS 

THE 



THIS ROUTINE IS CALLED BY TuO DIFFERENT ACTION ROUTINES. 
NODE ACTION ROUTINE CALLS IT TO PARSE THROUGH THE NODE 
ADDRESS INPUT Bv THE OPERATOR. THE OPRSEL ACTION ROUTINE 
CALLS TRVADR TO PARSE THROUGH THE "OPERATOR SELECTED" MESSAGE 
WHICH HAS BEEN INPUT IN THE COMMAND LINE. FOR A NODE ADDRESS, 
THE ROUTINE LOOKS FOR A '/' AS A DELIMETER FOR THE ADDRESS. 
AND REPLACES THE / WITH A NULL BYTE FOR USE BY THE ADDRESS 
PACKING ROUTINE. WHEN CALLED BY THE OPRSEL ROUTINE. A • ••• 
IS EXPECTED AS THE DELIMETER FOR THE OPERATOR SELECTED MESSAGE. 
IF A NULL STRING IS ENTERED. AN ERROR MESSAGE IS PRINTED. 



INPUTS - 

OUTPUTS - 

COMMAND LINE 
INPUT CONDITION 



R4 - POINTS TO THE BEGINING OF THE ADDRESS 

OR MESSAGE IN THE COMMAND LINE 
SUMMARIZED IN TABLE BELOW 



! PIGOBD 



ILLEGAL CHAR. 
ADR. /ASSIST 
ADR. /TARGET 
ADR./ 
ADR. 

ADR. /CHAR. OR 
"OPR SEL/CHAR 

OTHER THAN "A"! 

"T" OR BLANK ! 



-1 
0 



"OPR SEL' 



0 
0 



OUTPUTS 
R4 POINTS TO 



ILL, CHAR. 
END OF LINE 

END OF LINE 



CHAR. AFTER 
CHAR. AFTER 



CFLAG CONTAINS ! PSMERR 



CASIST 
CTARGT 

CTARGT 
OPRSEL 



N/A 
N/A 

N/A 



N/A 



1 

0 



CALLING PROCEDURE 
REGISTER USAGE 



5458 


101656 


005001 




TRVADR: 


CLR 


Rl 


5459 


101660 


121427 


000000 


101: 


CMPB 


CR4).#0 


5460 


101664 


001425 






BEQ 


50 S 


5461 


101666 


121427 


000040 




CMPB 


<R4).»40 


5462 


101672 


002414 






BLT 


20* 


5465 


101674 


121427 


000042 




CMPB 


CR4).«42 


5464 


101700 


001454 






BEQ 


70 » 


5465 


101702 


121427 


000057 




CMPB 


CR4).«57 


5466 


101706 


001420 






BEQ 


SOI 


5467 


101710 


121427 


000152 




CMPB 


(R4).«152 


5468 


101714 


005005 






BGT 


201 


5469 


101716 


005204 






INC 


R4 


5470 


101720 


005201 






INC 


Rl 


5471 


101722 


000756 






BR 


10» 


5472 


101724 


112757 


177777 005221 


20$: 


MOVB 


« l.PIGDBD 


5475 


101752 


000464 






BR 


90$ 


5474 


101754 


005701 




50«: 


TST 


Rl 



JSR PC , TRVADR 

Rl IS USED AS A COUNTER TO REPORT ER90R MESSAGES 

IF NULL STRINGS ARE ENTERED. 
R4 POINTS TO THE NEXT CHAR. IN THE COMMAND LINE 



sCLEAR HEX DIGIT FOUND FLAG 

;SEE IF NH. CHAR, 

; IF YES. RETURN 

J SEE IF ILLEGAL CHARACTER 

ilF YES I BRANCH TO ERROR ROUTINE 

jSEE IF CHAR. IS A ' • 

J IF YES .BRANCH TO 70 » 

J SEE IF CHAR. IS A •/ • 

{BRANCH IF YES 

J SEE IF CHAR. GREATER THAN F 

I IF YES. ILLEGAL CHAR. 

I UPDATE CMO LINE POINTER TO NExT CHAR. 

jINCIDATE A VALID CHAR, FOUND 

(LOOK AT NEXT CHAR, 

iSET ERROR FLAG 

i RE TURN 

;SEE IF VALID CHARACTERS FOl.»JO 



HIO 









MAD 








101736 


001772 






BEQ 


20$ 


I IF NO. ILLEGAL CHMl 


54 76 


101740 


012737 


000000 


003734 40$ • 


liOV 


•CTARGT .C^LAG 


iSET TARGET FLAG 


54 77 


101746 


000456 






BR 


90$ 


1 RE TURN 


54 70 


101750 


005701 




501 : 


TST 


Rl 


iSEE IF VALID CHARACTERS FOUND 


54 79 


101752 


001764 






BEQ 


20$ 


1 IF NO. ILLEGAL CMAR 


5480 


101754 


112714 


000000 




novB 


<K),(R4) 


t IF YES, REPLACE "/" UlTM NULL CHAR. 


5461 


101760 


005204 






INC 


R4 


{UPDATE CMO. LINE POINTER TO NEXT CHAR. 


5462 


101762 


121427 


000000 




CMPB 


(R4).«0 


lis NEXT CHAR. NULL 


5463 


101766 


001764 






BEQ 


40$ 


1 IF YES. TAKE DEFAULT OF TARGET 


5464 


101770 


121427 


000101 




CMPB 


(R4).*' A 


lis NEXT CHAR. "A" 


5465 


101774 


001412 






BEQ 


60$ 


1 IF YES. BR 60$ 


5466 


101776 


121427 


000124 




CMPB 


(R4),«' T 


lis NEXT CHAR. ■ T' 


5467 


102002 


001756 






BEQ 


40$ 


i IF YES. SET TARGET FLAG 


5466 


102004 


112757 


177777 


003221 


novB 


* l.P$GOBD 


1 ELSE. SET ERROR FLAG. 


5469 


102012 


005504 






DEC 


R4 


t READJUS1 COMMAND LINE POINTER 


5490 


102014 


112714 


000057 




novB 


• ' /.(R4) 


t AND REPLACE / IN CMO LINE TO Fjx ERROR 


5491 


102020 


000747 






BR 


40$ 


1 SET TARGET FLAG AND RETURN 


5492 


102022 


012757 


/WW\AA4 

000001 


003734 60$ : 


MOV 


•CASIST.CFLAG 


iSET ASSIST FLAG 


5495 


102050 


000425 






BR 


90$ 




5494 


102052 


005701 




70$: 


TST 


RI 


sSEE IF ANY CHARACTERS TYPED 


5495 


102034 


001407 






BEQ 


60$ 


iir NO. BRANCH TO 60$ 


5496 


102056 


II27I4 


000000 




novB 


•0.(R4) 


lELSE. REPLACE ' "' WITH NULL 


5497 


102042 


012737 


AAAAA£ 

OOOOOo 


003734 


MOV 


•OPRSEL.CFLAG 


sSET OPERATOR SELECTED FLAG 


5496 


102050 


005204 






INC 


R4 




5499 


102052 


000414 






BR 


90$ 


{RETURN 


5500 


102054 






60$ : 


PRINTF 


•NULSTR 


.•PRINT NULL STRING ERROR MESSAGE 




102054 


012746 


053076 








MOV ONULSTR, -(SP) 




102060 


012746 


AAAAA4 

000001 








MOV (SP) 
















MOV SP.RO 




102066 


104417 










TRAP C$PNTF 




102070 


062706 


000004 








ADO 04. SP 


5501 


102074 


112737 


177777 


003223 


MOVB 


♦ l.P$MERR 


iSET OPER. SELECTED MSG. ERROR FLAG 


5502 


102102 


005204 






INC 


R4 


J MOVE CMD. LINE POINTER TO NEXT CHAR. 


5503 


102104 


000207 




90$: 


RTS 


PC 


{RETURN 



110 



iCISER DIAG MACRO Ml^OO 22 MAR 84 15:12 PAGE 42 



5505 
5506 
550 r 
5505 
5509 
5510 
5511 
5512 
5515 

5514 
5516 
5517 
5518 
5519 
5520 
5521 
5522 
5523 
5524 
5526 
5527 
5528 



5550 
5551 
5552 
5535 
5554 
5555 
5556 
5557 
5558 
5540 
5541 
5542 
5545 



.SBTTL 



REPORT COOING SECTION 



102106 
102106 



i THE REPORT COOING SECTION CONTAINS THE 

J "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 

BGNRPT 



102106 0047S7 105170 
102112 

102112 000167 

102114 000000 



102116 
102116 

102116 104425 



LiRPT; 



THIS SECTION, WHICH IS OPTIONAL. CONTAINS THE CODE FOR PRINTING 
STATISTICAL INFORMATION GATHERED BY THE DIAGNOSTIC. IT IS 
EXECUTED BY THE OPERATOR COMMAND "PRINT" OR BY THE MACRO CALL 
"OORPT". USE THE PRINTS MACRO TO PRINT THE INFORMATION. 
USE FORMAT STATEMENTS AS IN THE PRINTB/PRINTX MACROS. IT IS 
THE PROGRAMMER'S RESPONSIBILTY TO DEVISE AND IMPLEMENT THE 
FORM AND CONTENT OF THE STATISTICS. 



JSR 
EXIT 



PC.ACTSUM 
RPT 



INSERT LOCAL STORAGE THAT IS USED ONLY 
DURING THE REPORT SECTION. 



.UORO 
.WORD 



J»JMP 

L10006 2 . 




INSERT MESSAGES THAT ARE USED ONLY 
DURING THE REPORT SECTION. 



.EVEN 
ENDRPT 



L 10006: 



TRAP 



C»RPT 



J 10 
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PROTECTION TABLE 



5545 .SBTTL PROTECTION TABLE 

5546 : ♦ ♦ 

554 7 ; THIS TABLE IS USED BY THE RUNTIME SERVICES 

5548 i TO PROTECT THE LOAD MEDIA. 

5549 

5550 102120 ' BGNPROT 

102120 L»PROT:: 

5551 102120 177777 I jOFPSET INTO P- TABLE FOR CSR ADDRESS 

5552 102122 177777 -I jOFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
5555 102124 177777 -I lOFFSET INTO P-TABLE FOR DRIVE NUMBER 
5554 102126 ENDPROT 

5557 J INSERT BYTE OFFSET FOR DATA NOTED IN COMMENTS ABOVE. (OFFSET 

5558 ; REFERS TO THE NUMBER OF BYTES FROM THE BEGINNING OF A PTABLE 

5559 ; ENTRY TO THE ITEM IN QUESTION.) IF THE PARTICULAR 

5560 J ITEM DOES NOT APPLY. LEAVE ENTRY AS -1. WHEN THE RUNTIME 

5561 5 SERVICES EXECUTES A GPHARD. IT USES THESE OFFSETS (IF NOT 

5562 ; SET TO -1) TO GET THE ITEMS AND COMPARE UITH ^hoSE SAVED 

5563 i IN THE XXDP» MONITOR. IF THE UNIT BEING REQUESTED MATCHES THE 

5564 : LOAD DEVICE. THE RUNTIME SERVICES RETURN AN INCOMPLETE FLAG ON 

5565 J THE GPHARD. 



KIO 
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SEQ 127 



5569 
5570 
5571 
5572 
5575 
5574 

5575 
5577 
5578 
5579 
5560 
5581 
5562 
SS6S 
5564 
5565 
5566 
5567 
5566 
5569 
5590 
5591 
5592 
5593 
5594 
5595 
5596 
5597 
5596 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5608 
5609 
5610 
5611 
5612 
5613 
5614 
5615 
5616 
5617 
5616 
5619 



5620 
5621 
5622 
5623 



.SBTTL 



INITIALIZE SECTION 



THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
AT THE BEGINNING OF EACH PASS. 



102126 
102126 



BGNINIT 



LIINIT; 



102126 
102126 

102126 010446 

102130 010346 

102132 010246 

102134 022737 000020 003734 

102142 001004 

102144 005037 003734 

102150 000137 103544 



THE INITIALIZE CODE IS EXECUTED UNDER FIVE CONDITIONS. THERE 
ARE SUPERVISOR EVENT FLAGS THAT ARE USED TO LET THE 
DIAGNOSTIC KNOW UNDER WHICH CONDITION THE EXECUTION IS TAKING 
PLACE. THE EVENT FLAGS ARE READ USING THE "READEF" MACRO. 
THE CONDITIONS UWER WHICH THE INIT CODE IS EXECUTED AND THfc 
CORRRESPONDING EVENT FLAGS ARE: 

START COMMAND EF. START 

RESTART COMMAND EF. REST ART 

CONTINUE COMMAND EF. CONTINUE 

POWERDOWN/POWERUP EF . PWR 

NEW PASS EF.NEW 
EXAMPLE OF EVENT FLAG USE: 

READEF •EF. START 

8C0MPLETE STARTCOOE 
DURING THE INIT CODE. USE THE "GPHARD" MACRO TO OBTAIN P TABLE 
INFORMATION FOR DEVICE TESTING. GET ONE UNIT'S INFORMATION IF 
THIS IS A SEQUENTIAL DIAGNOSTIC. GET INFORMATION ON ALL 
UNITS AVAILABLE FOR TESTING IF THIS IS AN EXERCISER. THE NUMBER 
OF UNITS AVAILABLE IS IN A HEADER LOCATION: "LtUNIT". 



ROUTINE STEPS 



CHECK ENTRY FLAGS AND TAKE CORRECT ACTION 
INIT THE STACKS 
LOCATE FREE MEMORY 

VERIFY THAT A CLOCK OF SOME SORT EXISTS 
GET THE QNA ADDRESS FROM THE PTABLE 
SET UP THE QNA INTERRUPT VECTOR 
CLEAR NODE TABLE 
CLEAR SUMMARY TABLE 
CLEAR COUNTER DATA BASE 
SET UP FOR CLOCK INTERRUPTS 
CALL THE QNA INIT ROUTINE 

GET THE DEFAULT PHYSICAL ADDRESS AND PRINT IT 

RESET THE CLOCK 

EXIT 



INIT: 



PUSH R2.R5.R4 



CMP <m:exit,cflag 

BNE INITl 

CLR CFLAG 

JMP INICLN 



J SAVE THE REGISTERS 
MOV 
MOV 
MOV 

;SEE IF EXIT COMMAND TYPED 
J IF NO, DO INIT CODE 
t ELSE. CLEAR EXIT FLAG 
i AND 00 CLEANUP 



R4. 
R5. 
R2. 



(SP) 
CSP) 
CSP) 
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SEQ 128 



5624 


102154 






5625 


102154 








102154 


012700 


000040 




102160 


104447 




5626 


102162 
102162 


103424 




5627 


102164 








102164 


012700 


000037 




102170 


104447 




5628 


102172 
102172 


103002 




5629 


102174 


000137 


103234 


5630 


102200 






5631 


102200 








102200 


012700 


000036 




102204 


104447 




5632 


102206 
102206 


103002 




5633 


102210 


000137 


103234 


5634 


102214 






5635 


102214 








102214 


012700 


000035 




102220 


104447 




5636 


102222 
102222 


103002 




5637 


102224 


000137 


103334 


5638 


102230 






5639 


102230 


000137 


103354 


5640 


102234 






5641 


102234 








102234 


012705 


001000 




102240 


010606 




5642 


102242 
102242 


104431 






102244 


010037 


050022 


5643 


102250 


013737 


050022 


5644 


102256 


062737 


000002 


5645 


102264 


012702 


003736 


5646 


102270 








102270 


012700 


000114 




102274 


104462 






102276 


OlOOOl 




5647 


102300 
102300 


103006 




5648 


102302 


004737 


070504 


5649 


102306 


012737 


000100 


5650 


102314 


000514 




5651 


102316 






5652 


102316 








102316 


012700 


000120 




102322 


104462 






102324 


010001 




5653 


102326 
102326 


103017 




5654 


102330 


004737 


070504 


5655 


102334 


062737 


000002 


5656 


102342 


012777 


OOlfOO 



10$; 



20<; 



30$: 
START: 



10(: 



REAOEF ♦EF . START 

BCOMPLETE START 
REAOEF ♦EF. RESTART 

BNCOMPLETE 10) 
JMP RESTRT 
REAOEF «EF. CONTINUE 

BNCOMPLETE 20 t 

JMP RESTRT 
REAOEF «EF.NEU 

BNCOMPLETE 30$ 

JMP NEW 

JMP INIEXI 

liSTACK #1000. SP 

MOV #1000. R5 J INI 

MOV SP.SP (INITIALIZE 

MEMORY FRESIZ 



MOV FRESIZ. FREMEM 

ADO #2, FREMEM 

MOV «CLKCSR.R2 

CLOCK L.Rl 



I IF HERE BECAUSE OF "START' . DO INIT 



MOV 
TRAP 

BCS 

I IF HERE BECAUSE OF "RESTART 

MOV 
TRAP 

BCC 



♦ef.start.ro 

CIREFG 

START 
DO SOME INIT 
•EF.RESTART.RC 
CtREFG 

lot 



J IF HERE BECAUSE OF "CONTINUE". EXIT 

MOV «£F. C0NTINUE.ro 

TRAP CtREFG 



BCC 



20$ 



sIF HERE ON NEW PASS. SKIP SOME INIT 

MOV 9EF.NEU.ro 
TRAP C$REFG 



BCC 



30$ 



BNCOMPLETE 



10$ 



JSR PC.CLKSET 

MOV «LCLKEN.CLKEN 

BR 40$ 

CLOCK P.Rl 



sIF DON'T KNOW WHY WE'RE HERE, EXIT 

;SET PARAMETER STACK POINTER 
TIALIZE THE PARAMETER STACK POINTER. 
THE HARDWARE STACK POINTER. 

:GET FREE MEMORY INFO 

TRAP CIMEM 
MOV RO. FRESIZ 

J SIZE OF FREE MEMORY IN FRESIZ 
{START OF FREE MEMORY IN FREMEM 
J SETUP R2 AS A PRT. TO CLOCK INFO. BLOCK 
(GET LINE CLOCK INFO 

MOV «'L.RO 
TRAP C»CLCK 
MOV RO.Rl 
;IF NONE. SEE IF P CLOCK PRESENT 

BCC 10$ 

I SET UP CLOCK INFO TABLE AND VECTOR 
tSET UP THE ENABLE LINE CLOCK DATA 



BNCOMPLETE 



20$ 



iGET P CLOCK INFO 



tIF NO CLOCK. ERROR 



MOV 

TRAP 

MOV 

BCC 



* P.RO 
C$CLCK 
RO.RI 

20$ 



JSR PC.CLKSET 
ADD «2.CLKCSR 
MOV dPCLKCT.aCLKCCR 



! ELSE SET UP CLOCK INFO AND VECTOR 
I POINT CLKCSR TO P CLK COUNT SET REG. 
jLOAD CLK SET REG. WITH COUNT VALUE 
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MIO 
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5657 


102550 


162757 


000002 


005756 


5658 


102556 


012737 


000111 


005746 


5659 


102564 


000470 






5660 


102566 








5661 


102566 


012757 


000100 


005742 


5662 


10?^74 


012757 


005746 


003736 


5663 


l'i2402 


012757 


000001 


003756 


5664 


1 J24 10 










'02410 


012746 


000000 






02414 


012746 


070530 






102420 


015746 


003742 






102424 


012746 


000003 






102450 


104457 








102452 


062706 


000010 




5665 


102456 










102436 


012727 


000050 






102442 


000000 








102444 


015727 


002116 






102450 


000000 








102452 


005367 


177772 






102456 


001375 








102460 


005367 


177756 






102464 


001367 








102466 


005737 


003756 




5667 


102472 


001015 






5660 


102474 










102474 


104445 








102476 


000406 








102500 


005744 








102502 


000052 








102504 


052242 








102506 


000577 








102510 


000062 








102512 


000074 








102514 








5669 


102514 


004737 


070504 




5670 


102520 


000412 






5671 


102522 








5672 


102522 










102522 


012746 


061766 






102526 


012746 


000001 






102552 


010600 








102534 


104417 








102536 


062706 


000004 




5675 


102542 


000137 


103344 




5674 


102546 








5675 


102546 










102546 


012700 


000000 






102552 


104442 








102554 


010001 






5676 


102556 










102556 


105402 






5677 


102560 


000137 


103344 




5678 


102564 








5679 


102564 


012137 


047772 




5680 


102570 


012137 


047774 




5681 


102574 


012137 


047776 





20$: 



SOS; 



40$: 



50$: 



SUB •2.CLKCSR 

MOV OPCLKEN.CLKEN 

BR 40$ 

MOV «100,CLKVEC 

MOV «CLKEN.CLKCSR 

MOV «1.TIMER1 
SETVEC CLKVEC.«CLKINT.#0 



DELAY 50 



TST TIMER 1 
BNE 50$ 

GMANID L5060.CLKHZ. 0.577.5 



JSR 
BR 



PC.CLKSET 
40$ 



PRINTF ♦NOCLK 



JMP INICLN 

GPHARD 00. Rl 

BCOMPLETE 50$ 

JMP INICLN 

MOV (R1)».QNAA00 

MOV CR1)*.QNAVC0 

MOV (R1)».QNAPR0 



SEQ 129 



, POINT CLKCSR BACK TO P-CLK CSI» 
J SETUP TO ENABLE P-CLK DATA 



I SET UP INTERRUPT VECTOR 
I FAKE A CSR LOCATION 
; SET TIMER 1 VALUE 
; ENABLE CLOCK INTERRUPTS 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



WAIT SOME TIME FOR CLOCK INTERRUPTS 



•0. (SP) 
♦CLKINT. -CSP) 
CLKVEC.-(SP) 
•5.-(SP) 
C$SVEC 
•10. SP 



MOV 
.UORO 
MOV 
.UORO 
DEC 
BNE 
DEC 
BNE 

: DID TIMERl DECREMENT TO ZERO? 
; NO. NO CLOCK EXISTS. REPORT ERROR 
.60.. YES ; ASK IF 50 W 60 MZ 

TRAP 
BR 

.WORD 
.UORD 
.UORO 
.UORD 
.UORD 
.UORD 

10000$: 



•50.CPC). 
0 

L$DLY.CPC). 
0 

6CPC) 
. 4 

-22(PC) 
. 20 



C$GMAN 
10000$ 
CLKMZ 
T$C00E 
L5060 
577 

T$L0LIM 
T$MILIM 



: CONTINUE 

; ERROR MESSAGE 

MOV 

MOV 

MOV 

TRAP 

ADO 

t CANNOT CONTINUE. DO CLEANUP 



•NOCLK. (SP) 
•1. (SP) 
SP.RO 
C»PNTF 
•4.SP 



sGET P-TAB POINTER FOR THIS UNIT 

MOV 90.M 
TRAP C$GPHRD 
MOV RO.Rl 

tTHIS ONE IS NOT AVAILABLE 

BCS 50$ 



I SAVE DEVICE ADDRESS 
iSAVE VECTOR 
I SAVE PRIORITY 



CVNIAAO OEQNA NI EXERCISER OIAG HACRO M1200 
INITIALIZE SECTION 



5602 


102600 










SETVEC 




102600 


013746 


047776 










102604 


012746 


073064 










102610 


013746 


047774 










102614 


012**46 


AAA AAV 

000003 










102620 


104437 












102622 


062706 


AAA A % A 

000010 








5603 


102626 


012703 


AAA AC A 

000050 






nov 


5604 


102632 


A 4 A^AA 

012702 


AAAil 4 A 

002412 






HOv 


5605 


102636 








£AA . 

609 : 






102636 


AAC AAA 

005022 








LLH 


M> £■ |k •<• 

5607 


102640 


AAK VA V 

005303 








UcL 


5600 


102642 


AA4 V 

001375 








dNc 


5609 


102644 


A* A^AV 

012703 


AAA4 V A 

000132 






nOv 


5690 


4 K A 

102650 


A4 A^AA 

0I2702 


002 r 14 






MAl# 

nuv 


5691 


102654 








70» : 




5692 


102654 


AAC A A A 

005022 








LLK 


5693 


102656 


AAO A V 

005303 








UcC 


5694 


102660 


AA4 V 

001375 








dNc 




102662 


AACAT7 
00503 f 


050266 






LLH 


5696 


102666 


AACAV7 

005037 


ACAA7A 

050270 






LLH 


A^ 

5697 


4 A^f ^ A 

102672 


AAC A V ^ 

005037 


AC A^C A 

050252 






LLK 


5690 


102676 


AAC AV ^ 

005037 


ACAA 

050032 






LLK 


5699 


102702 


AAC AV ^ 

005037 


ACAA VA 

050030 






LLK 


5700 


102706 


AAC A V ^ 

005037 


AC AA Vil 

050034 






LLK 


5701 


102712 


AAC A V ^ 

005037 


AC AAV ^ 

050036 






CLK 


5 702 


4 A A ^ 4 ^ 

102716 


AAC AV 7 

005037 


AC AAil A 

050040 






LLK 


5703 


102722 


AAKA V ^ 

005037 


AC AAil 

050042 






LLK 


5704 


102726 


A 4 A^AA 

012702 


AC A 4 il ii 

050144 






MA if 

nuv 


5705 


4 AA^VA 

102732 


012203 








MOV 


3 706 


102754 


AAf AAV 

006203 








A f B 

ASK 


5707 


4 A A ^ 

102736 








A A A 

00* ; 




9 700 


102736 


AAC AAA 

005022 








CLK 


3 f 09 


4 AA^A A 

102740 


AAC V AV 

005303 








UcL 


3 r 10 


102 742 


AA1 

001375 










3 '11 


102 / 44 


AAC A V ^ 

005037 


AAT "^C A 

003750 






LLK 


5 r le 


102750 


AAK AV ^ 

005037 


A A V ^ C A 

003752 






Al A 


5715 


102754 


A4 V ^ V ^ 

013737 


A A V ^ Jl il 

003744 


AAV ^C M 

003754 




MOV 


3 'I* 


102 7o2 










SETvcC 




102762 


A 4 V ^Jk ^ 

013746 


AAV ^il A 

003740 










102766 


A 4 A^ JK 

012746 


A^ AC V A 

070530 












013746 


AAV ^Jk A 

003742 










102 f AO 


At 

012746 


AAAAA V 

000003 










4 AVAA^ 

10^002 


4 Ail Jl V ^ 

104437 












1 A VAAA 

103004 


Af A^A£ 

062706 


A AAA 4 A 

000010 








5715 


1 A VA4 A 

lOoOlO 


A 4 ^ ^ 

013777 


A A V ^ il £ 

003746 


4 AA^AA 

100720 




MAk 

nOv 


3 '16 


1 At A4 £ 

103016 










SETPRI 




• AVAI £ 

105016 


A 4 ^7AA 

012700 


AAAAAA 

000000 










1O5022 


I0444I 










3»1 f 


4 AVAAil 

103024 










CALL 


















103030 


000220 










5710 


103032 










P*POP 




103032 


014500 










5719 


103054 


001401 








BEQ 


5720 


103036 


000542 








BR 


5721 


103040 








90$: 





NiO 
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SETVEC QNAVC0.4QNAISR.QNAPR0 



4TBLLEN.R3 
4N0DTBL.R2 

(R2)* 

R3 

60$ 

4STBLEN.R3 
♦STATBL.R2 

CR2)» 

R3 

70* 

BCOUNT 

ERRFLG 

FATFLG 

S.NREC 

S.REC 

S.LEN 

S.COMP 

S.BYTE 

S.XFER 

4CNTRS.R2 

CR2)*.R3 

R3 

(R2)» 
R3 
00 ( 

TIMMIN 
TIMSEC 

CLKH2.TIMTCK 

CLKVEC , 4CLK INT . CLKBR 



CLKEN.8CLKCSR 



QNAINI 



RO 
90» 

INICLN 



SEQ ISO 



: SETUP QNA INTERRUPT 



; CLEAR NODE TABLE 



TAD 
1 UH 




MOV 


QNAPRO. (SP) 


MOV 


OQNAISR. (SP) 


MOV 


QNAVCO. -(SP) 


MOV 


#3. (SP) 


TRAP 


CtSVEC 


ADD 


410. SP 



: CLEAR SUMMARY TABLE 



CLEAR UNEXPLAINED ERROR COUNTER 
CLEAR ERROR FLAG 
CLEAR FATAL FLAG ERROR 
CLEAR SUMMARY DATA COUNTERS 



: GET BASE ADDRESS OF COUNTER DATA BASE 

{ GET SIZE OF COUNT DATA BASE 

: TURN BYTE COUNT INTO WORD COUNT 

; CLEAR THIS COUNT 

: KNOCK DOWN COUNT BY ONE 

: BRANCH IF MORE TO DO 

: CLEAR TIME SINCE -START -LOCATIONS 

J LOAD TICKS/SEC 

;SETUO CLOCK INTERRUPT VECTOR 

MOV CLKBR. -(SP) 
MOV ♦CLKINT. -(SP) 

MOV CLKVEC. -(SP) 
MOV 43. -(SP) 

TRAP CISVEC 
ADD 410. SP 

»SET ENABLE BITS IN THE CLOCK TO START 

jSET PRIORITY-O SO CLOCK CAN INTERRUPT 

MOV 4PRI00.R0 
TRAP CSSPRI 

J INITIALIZE THE QNA 

JSR R4.PREG14 

. WORD QNAINI - ANCHOR 

s GET RETURN STATUS 

MOV -(R5).R0 

s BRANCH I^ NO ERRORS 



Bl i 
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INITIALIZE SECTION 



J ' CC 












nuw 




O 1 CO 














AnpPAnQ R5 
















vnc »V"WJ' 














MOV 


fR2 > fR3)» 

V"C fV^wy* 


J * Cw 




V4 4C 








nnu 

1 twv 


(R2) fR3) 

\"C / 








A47#^74 






NOV 


•IDTDAT R3 






012702 


0040I0 






MOV 


•PHVADR.R2 






01 I2&S 


000006 






MOV 


(R2) SOURCC(RS) 

\ "C / t WW\^^WW\ "W J 


5730 


1030 72 


016263 


000002 

wwwwvc 


OOOOlO 

WWWW A w 




MOV 


2CR2 ) . 50URCC •2CR3 ) 


57S1 




W A vCww 


000004 


000012 

WWWW AC 




HOV 


4CR2).S0URCC*4fR5) 




A AW 


w A ACw V 


000042 






hOV 


CR2) SIADDRCR3) 

\ " C / f W A W W" \ W / 






w AWCO w 


wvwc 


000044 

WWVW^~ 




HQV 


2CR2).SIAD0R«2(R3) 

C\"C / fWA WW" * C \ " W / 


5754 




V A wCw W 


000004 

VWVWW^ 


000046 




MQV 


4(R2) SIA0DR*4(R3) 


5755 


1031P6 








1001 : 


















CALL 


BINHEX M)EPADR 06. OS 




103126 


012725 


002324 












103132 


012725 


000006 












103136 


012725 

W4C ' C W 


003774 












103142 


004437 


070656 












103146 


005150 












5757 


103150 










PRINTS 


#H0f1SGl . 9STRBUF 




103150 


012746 


002324 












103154 


012746 


055046 












103160 


012746 

w&c ■ ^w 


000002 












103164 


010600 

W AWVWW 














103166 

A WW *WW 


104416 














1031 70 


» WW 


WWWW 










5750 


103174 

AV W A f ^ 


012737 

w&c » w » 


oooooo 


002372 




nov 


•ALPHA PtlVPE 


5759 


AWwCwC 


012737 

W&C ' W ' 


OOlOOO 


002374 

wwc w » ^ 




MOV 

1 IW w 


•512 PtSI7E 

WW AC • •~*WA*>W 


5740 


103210 


012737 

W&C ' W ' 


OOOOOl 


002S76 

wc w > w 




nov 

I IWV 


V A • ~ • W» » w 


5741 


103216 




003202 






CLR 


RSPFLG 


S742 


103222 


00^37 


003750 






CLR 

vita" 


TIMMIN 


5743 


103226 


WhWw r 


0S0146 






CLR 


CNTRStC SECS 

W'^I'^W^W • WW w w 


5744 


103232 

AWWC WK 


0004S0 








BR 


INIEXI 


5745 


103234 








RESTRT • 






5746 


103234 


005037 


002200 






CLR 


BLOFLG 


5747 


103240 










ClH 


RSPFLG 


S 748 


103244 


W4 W ' W ' 




003 754 




NOV 


CLKH7 TIHTCK 


5749 


103252 










$E TvEC 


CLKVEC ACLKINT .CLKBR 




103252 


013746 

W & W ' ~ W 


003 740 

WW ' ~ w 










103256 


W AC r 


W 1 W*J WW 












103262 


013746 

W 4 W ' ~W 


^^/w » ^c 












10326fN 


012746 

w &c ■ ~ w 


WWWW 












1032/2 


104437 














103274 


062706 

WWfc ' WW 


OOOOlO 

WWW4W 










5750 


103S00 


013777 

WAw Iff 


OOS746 

Www • ^W 


10O430 

A VW^ WW 




HOV 


CL KEN act KCSR 


5751 


103506 










SE TPRI 

WW t " * 


•PR 100 




103306 


012700 

W AC ' w 


OOOOOO 

WWWWW 












103312 


104441 












5752 


103314 










CALL 


QNAINI 




103314 


004437 


070656 












103320 


000220 












5753 


103322 










PIPOP 


RO 




103322 


014500 












5754 


103324 


001401 








BLQ 


101 


5755 


103326 


00C406 








BR 


INICLN 


5^56 


103 S30 








lot: 







SEO 151 



GET CSR ADDRESS 

GET DErAULT PHYSICAL ADDRESS 

GET riRST WORD QT THE ADDRESS 

GET SECOND WORD OF THE ADDRESS 

GET FINAL WORD OF THE ADDRESS 

POINT TO SYSTEH ID MESSAGE 

POINT TO PHYSICAL ADDRESS 

OUR ADDRESS IS CONSOLE 10 SOURCE 

AGAIN 

ANO AGAIN 

OUR ADDRESS IS CONSOLE ID DEVICE ADDRESS 

AGAIN 

AND AGAIN 

\ PUT ADDRESS INTO HEX FORMAT 

MOV •STRBUF.fRS). 
MOV •6.(R5)' 
MOV ♦OEPAOfi.CRS). 
JSR R4.PREG14 
.WORD BINHEx ANCHOR 

PRINT ADDRESS 

MOV •STRBUF. (SPJ 

MOV •►OHSGl. (SP) 

MOV »?. (SP) 

MOV 5P.R0 
TPAP CIPNTS 
AOO ^6 SP 

SET MESSAGE DEFAULT VALUES 



CLEAR RESPONOER MODE FLAG 

CLEAR TIME SINCE START LOCATIONS 

CLEAR QNA TIME SINCE START 



INDICATE THAT uE ARE NO LONGER BUILDING 
CLEAR RESPONOER MODE FLAG 
LOAD TICKS/SEC 

SETUP CLOCK INTERRUPT vCCTOR 

MOV CLKBR. (SP) 

MOV •CLKINT. (SP"* 

MOV CLKVEr. (SP> 

MOV ♦3. (SP"* 

TRAP CISVEC 
ADO •lO.SP 
SET ENABLE BITS IN THE CLOCK TO START 
SET PRIORI Tt-O SO CLOCK CAN INTERRUPT 

MOV •PRIOO.RO 
TRAP C«SPRI 

INITIALIZE THE QNA 

JSR R4.PREol4 
.WORD (MA INI ANCHOR 
GET RETURN STATUS 

MOV (R5>.R0 
BRANCH IF NO ERRORS 
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SEQ II? 



sr57 

S7S9 
5760 
•^761 

576^ 



5765 

5764 

5765 



5 ■'be 



5767 
5769 
5770 
5771 
5772 
5775 
5774 
5775 
5776 
5777 
5779 
5780 
5781 
5782 



103530 
103554 
103334 
105542 
105544 
105544 
105544 
105546 
105550 
105552 
105552 
105554 
105354 
105554 
105556 
105360 
105562 
105562 
105364 



105366 
105566 
105566 



005057 005752 

015777 005746 
000404 



012602 
012605 
012604 

104444 



012602 
012603 
012604 

104452 
000002 



CLR 

NEU: 

100574 MOV 
BR 

INICLN: 

POP 



TIMSEC 

CLKEN.SCLKCSR 
INIEXI 

R2.R5.R4 



INIEXI: 



OOCLN 



POP R2,R5.R4 



EXIT INIT 



I SET ENABLE BITS IN THE CLOCK TO STMT 
lEXIT 

I RESTORE THE REGISTERS 

MOV (SP)».R2 
MOV (SP)..R5 
MOV (SP)..R4 

I ABORT PASS 

TRAP CIDCLN 



I RESTORE THE REGISTERS 
MOV 
MOV 
MOV 

I EXIT INIT SECTION 



(SP)..R2 
(SP)..R3 
(SP)».R4 

TRAP 
.UORD 



C»EXIT 
LlOOlO 



, INSERT LOCAL STORAGE THAT IS USED ONLY 

i DURING THE INITIALIZE SECTION. 

I INSERT MESSAGES THAT ARE USED ONLY 

i DURING THE INITIALIZE SE'TTION. 



.EVEN 
END INIT 



104411 



LlOOlO; 



TRAP 



C»INIT 



Dil 
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SCO is; 



5 764 
5785 
576t> 
5787 
5768 
578«» 
57«»0 
5791 
5792 

5795 105570 

1035 :o 

5794 

5796 
5797 

5798 
5799 
5601 

5802 105570 
105570 
105570 



.SBTTL AUTOOROP SECTION 



THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
THE "AOR" fLAG WAS SET. THE UNITtS) UNDER TEST ARE CHECKED TO 
SEE If THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 
DROPPED FROM TESTING. 



BGNAUTO 



LIAUTO: 



I INSERT CODE HERE TO CHECK DEVICE(S) TO SEE IF THEY RESPOND. 

J ISSUE A "DODU" FOR THOSE THAT DON'T. 



ENDAUTO 



104461 



LlOOll: 



TRAP 



CIAOTC 



CVNIAAO DEQNA NI 
CLEANc»> COOING SE 



5504 
5805 
5606 
5607 
5806 
5609 
5610 
5611 
5612 
5615 
5614 
5615 
5616 
5817 
5616 
5619 
5620 
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SEQ 1S4 



.SBTTL CLEANUP COOING SECTION 



THE CLEANUP COOING SECTION CONTAINS THE COOING THAT IS PERrOf. .0 
AFTER THE HAROUARE TESTS HAVE BEEN PFRFQRMED. 

ROUTINE STEPS: 

GET CSfl ADDRESS 

CLEAN UP ANT RECEIVE BUFFERS HANGING AROUND 
CLEAR INTERRUPT ANO RECEIVE ENABLE BITS 
DISABLE CLOCKS 
EXIT 



5621 
5623 
5624 
5625 
5626 
5627 
5626 



10SS72 
103372 



BGNCLN 



Lt CLEAN: 



INSERT YOUR CLEANUP COOING. THIS COOING SHOULD 
RESTORE YOUR TEST -DEVICE TO A NEUTRAL STATE. 
THIS CODE WILL BE EXECUTED AFTER EACH PASS AND AFTER THE 
PROGRAM IS INTERRUPTED BY "tC". 



5630 


105572 










PIPUSH 


R2 


1 


PUT R2 ON THE STACK 




105372 


010225 














MOV R2.(R5). 


5631 


105574 








10 1: 










5632 


105574 










SETPRI 


PR 100 




MAKE SURE CLOCKS CAN INTERRUPT 




103374 


013700 


000000 












MOV PRIOO.RO 




103400 


104441 














TRAP OSPRI 


5655 


103402 


005737 


050256 






TST 


NIRCNT 




SEE IF RECEVE COUNT ZERO 


5634 


103406 


001417 








BEQ 


20$ 




IF YES. EXIT 


5835 


105410 










CALL 


RECEVE 




ELSE. CLEAR OUT UNWANTED ENTRIES 




103410 


004437 


070656 












JSR R4.PREG14 




103414 


003044 














.UORO RECEVE ANCHOR 


5656 


103416 










P»P0P 


R2 








103416 


014502 














MOV -CR5) R2 


5657 


103420 


001765 








BED 


10* 


• 


IF ANY WERE FOUND, UPDATE NEXT POINTER 


5636 


103422 


013702 


024226 






MOV 


RRGNXT.R2 




GET THE DESCRIPTOR 


5839 


105426 










CALL 


GETRNX 01.4RRGNXT 


• 


UPDATE NEXT ANO PREVIOUS DESCRIPTOR POINTERS 




103426 


012725 


024226 












MOV MRGNXT.CRS)* 




103432 


012725 


000001 












MOV •l.CR5)» 




105456 


004437 


070656 












JSR R4.PREG14 




105442 


006450 














.UORO GETRNX ANCHOR 


5640 


103444 


000753 








BR 


10( 


J 


SEE IF ANY MORE ENTRIES 


5641 


103446 








20* : 










5842 


103446 


015702 


047772 






MOV 


QNAA00.R2 


i 


GET DEVICE ADDRESS 


5845 


105452 


012757 


000001 


005756 




MOV 


^l.TIHERl 


t 


TIMER FOR INITITIALIZE 


5644 


103460 


012762 


000002 


000016 




MOV 


•MRESET.CSRCR2) 


i 


RESET THE DEVICE 


5645 


103466 


012757 


000001 


003756 




MOV 


♦l.TIMERl 


> 


TIMER FOR INITITIALIZE 


5646 


103474 








30$: 










5647 


103474 


005737 


005756 






TST 


TIMERl 


i 


INIT DONE? 


5846 


103500 


001575 








BNE 


30 » 


t 


BRANCH IF NOT 


5649 


105502 


005062 


000016 






CLR 


CSR(R2) 


i 


FINISH THE RESET 


5650 


105506 


005077 


100224 






CLR 


SCLKCSR 


i 


DISABLE CLOCK 


5851 


105512 










SETPRI 




i 


SET PROCESSOR PRIORITY BACK TO ' 
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103512 
103516 

5S52 103520 
103520 

5653 103522 
103522 
103524 

5854 
5056 
5857 
5858 
5859 
5860 
5861 
5862 
5665 
5864 
5866 
5867 
5868 

5869 103526 
103526 
103526 



012700 
104441 

014502 

104432 

000002 



P»POP 
EXIT 



R2 
CLN 



I REMOVE K^ FROM STACK 
MOV 



MOV 
TRAP 

-(R5).R2 



SEQ 15!. 



♦PRI07.ro 
CISPRI 



TRAP 
.UORD 



J INSERT LOCAL STORAGE THAT IS USED ONLY 

: DURING THE CLEANUP SECTION. 

J INSERT MESSAGES THAT ARE USED ONLY 

; 'URING THE CLEANUP SECTION. 

.EVEN 
ENOCLN 



L10012: 



OEXIT 
L10012 



104412 



TRAP 



CtCLEAN 



5871 
5872 
5873 
5874 
5875 
5876 
5877 

be 78 103550 
103530 

5879 
5881 
5882 
5883 
5884 
5885 
5886 
5888 

5889 103530 

105530 000167 
105552 000000 

5890 
5892 
5893 
5894 
5895 
5896 
5897 
5898 
5899 
5900 
5902 
5903 
5904 

5905 103534 
103554 

105554 104455 
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SEQ 136 



.SBTTL DROP UNIT SECTION 



« *• 



J THE DROP IWIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 
I - 



BGNOU 



LiDU: 



INSERT DROP CODE HERE. THIS CODE UILL BE EXECUTED AFTER 
A "DROP' COMMAND OR A "DOOU" MACRO EXECUTION, THE PURPOSE 
OF THIS CODE IS TO 00 ANY NECESSARY HOUSEKEEPING AFTER A 
UNIT HAS BEEN DROPPED. THIS SECTION IS OPTIONAL. 



EXIT 



3U 



.WORD JtJMP 
.WORD L10015-2 



INSERT LOCAL STORAGE THAT IS USED ONLY 
DURING THE DROP -UNIT SECTION. 



INSERT MESSAGES THAT ARE USED ONLY 
DURING THE DROP-UNIT SECTION. 



.EVEN 
ENOOU 



L10015: 



TRAP 



CSDU 
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SEQ 157 



5907 
5908 
5909 
5910 
5911 
5912 
591 S 
5914 

5915 10S556 
10S556 

5916 
5918 
5919 
5920 
5921 
5922 
5923 
5925 

5926 103536 

103536 000167 
103540 000000 

5927 
5929 
5930 
5931 
5932 
5935 
5954 
5955 
5956 
5957 
5959 
5940 
5941 

5942 103542 
103542 

103542 104452 



.SBTTL ADD UNIT SECTION 



THE ADO-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
TO THE TEST CYCLE. 



BGNAU 



I $AU: : 



INSERT ADD CODE HERE. THIS CODE WILL BE EXECUTED AFTER 
AN "ADD" COMMAND. THE PURPOSE Of THIS CODE IS TO DO ANY 
HOUSEKEEPING THAT MAY BE NECESSARY AFTER A UNIT HAS BEEN ADDED. 
THIS SECTION IS OPTIONAL. 



EXIT 



AU 



.UORD JUMP 
.UORD L 10014 -2 



INSERT LOCAL STORAGE THAT IS USED ONLY 
i DURING THE ADO-UNIT SECTION. 

INSERT MESSAGES THAT ARE USED ONLY 
DURING THE ADO -UNIT SECTION. 



.EVEN 
ENDAU 



.10014: 



TRAP 



C»AU 



T L 



CVNIAA 
TEST I 
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SEQ 



5444 

5945 
5947 
5948 
5949 

5950 
5952 
5955 
5954 
5955 
5956 
5957 
5959 
5960 
5961 
5962 
5964 
5966 
5967 
5968 
5970 

5971 10S544 
103544 

5972 
5974 
5975 
5976 



•SBTTL 



TEST li 



! APPE^40 THE NAME OF THIS TEST TO THE .SBTTL. AS SHOUN IN THE 

t FOLLOWING EXAMPLE. .SBTTL TEST 1: NAME OF TEST 



TEST TO 



CHANGE THE PHRASE "TEST TO ..." TO BE A FUNCTIONAL 
DESCRIPTION OF THE HARDWARE TEST WHICH FOLLOWS. 

INSERT PROGRAM EQUATES THAT ARE USED ONLY IN THIS TEST. 



BGNTST 



Tl! 



INSERT THE COOING FOR THIS HARDWARE TEST. 
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SEQ 139 



5979 

5980 

5981 

5982 

5983 

5984 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

59*»3 

5994 

5995 

5996 

5997 

5998 

5999 

6000 

6001 

6002 

6003 

6004 

6005 

6006 

6007 

6008 

6009 

6010 

6011 

6012 

6013 

6014 

6015 

6016 

6017 

6018 

6019 

6020 

6021 

6022 

6023 

6024 



.SBTTL 



GETCL COMMAND LINE FETCH £ INTERPRETATION SECTION 



I FUNCTIONAL DESCRIPTION: 

THIS PART OF TEST 1 IS USED TO PROMPT THE USER FOR A COMMAND 
CALLING SEQUENCE 

ENTERED VIA DSRS TEST DISPATCH ROUTINE 

INPUT 

NONE 
IMPLICIT INPUT 
NONE 

OUTPUT 

A COMMAND FROM THE USER 
IMPLICIT OUTPUT 
NONE 

COMPLETION CODES 

NONE 
SIDE EFFECTS 

NONE 
REGISTERS USED 
NONE 



6025 
6026 



103544 
103544 

103550 
103554 
103554 
103556 
103560 
103562 
103564 
103566 
103570 
103572 
103574 
103574 
103O02 



DEBUG 



105037 003221 
105037 003220 

104443 
000406 

002202 
000142 
052104 
000000 
000001 
000110 

012737 002202 003204 
012737 050516 003206 



GETCL: 



NONE 



CLRB 
CLRB 
GMANID 



PtGDBD 
P$NNUF 

CLI»PM.CMD8UF.A.0.1.72, .NO 



: CLEAR C»D LINE PARSING ERROR FLAG 



;GET CMO LINE FROM OPERATOR 



MOV 
MOV 



OCMDBUF.PIBUFA 
♦CLITRE.PJTREE 



10000* : 



TRAP 
BR 

.UORO 
.WORD 
.UORO 
.UORO 
.UORO 
.UORD 



CtGMAN 
lOOOOt 
CMDBUF 
TtCODE 
CLI$PM 
0 

TILOlIM 
TIHILIM 



Kli 
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OUc ' 


1 A 1 A 


A1 


1 

lUO r £0 






niiv 


An TAPT PtarT 




1 ASA 1 ^ 


AACAV7 

UUSUiS r 








n D 




OUCT 




AA47V7 










Pr PtTQU 














TCTB 






1 AV£ 










RPn 
ocu 


1 At 
















ATI TFOM 






A1 07M^ 














1 A ViLAA 
















1 A ViLAA 


A1 /^AA 














1 AYiLAJL 


1 7 
















Ail374V^ 
UOc (Uf> 
















AAA1 X7 








IMP 








10^7X7 






tot • 


T<;Tfi 

1 3 1 D 






1 AVJhJLA 
































1 AXiLi^ 


A1 37A4« 














1 OXil79 


\JX£ 9 


VWW A 












1 AXA?^^ 
















1 

r 
















103702 


062706 


000004 










6037 


103706 


000137 


103544 






JMP 


GETCL 


6038 


103712 


022737 


000020 


003734 


20$: 


CMP 


♦CEXIT.CFLAG 


6039 


103720 


001311 








BNE 


GETCL 


6040 


103722 










EXIT 


TST 




103722 


104432 














103724 


013164 













SEQ 140 



J CLEAR QUALIFIER FLAG 

J GO PARSE COMMAI^ TREE 

J SEE IF PARSED OK. OR AN ERROR 

I IF NOT PRINT ERROR MESSAGE 

MOV •CLIERM. CSPJ 

MOV *1. (SP) 

MOV 5P.R0 

TRAP C»PNTF 

ADO •4.SP 

;SEE IF INCOMPLETE COMMAND TrPED 

sIF NOT PRINT ERROR MESSAGE 

MOV *CLINUF. (SP) 

MOV CSP1 
MOV SP.RC 
TRAP C«PNTF 
ADD «4.SP 

WAS EXIT COMMAND TrPED? 

IF NOT GET NEW COMMAND LINE 
ELSE EXIT 

TRAP CtEXiT 
.UORD L10015 . 
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6042 
6043 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6055 
6054 
6055 
6056 
6057 
605a 
6059 
6060 
6061 
6062 
6065 
6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
6072 
6075 
6074 
6075 
6076 
6077 
6076 
6079 
6080 
6081 
6082 
6085 
6064 
6065 
6066 
6067 
6066 
6069 
6090 
6091 
6092 
6095 
6094 
6095 
6096 
6097 
6096 
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SEQ 141 



105726 

105726 006502 

105750 016202 105744 

105754 062702 105744 

105740 004712 

105742 000207 



105744 000124 

105746 000126 

105750 000164 

105752 000474 



FUNCTIONAL DESCRIPTION: 

THESE ARE THE ACTION TABLES TO DEFING WHAT TO 00 WITH A COMMAND 
RECEIVED FROM A USER 

USER MUST CLEAR/SET PIGDBD IF USE "CLIBIF" IN CONNECTION WITH ACTION 

CALLING SEQUENCE 
JMP CL 

INPUT 

COMMAND FROM THE USER 
IMPLICIT INPUT 
NONE 

OUTPUT 

NONE 
IMPLICIT OUTPUT 

NONE 
COMPLETION COOES 

NONE 
SIDE EFFECTS 

NONE 
REGISTERS USED 

R2 - HOLDS ACTION CODE FROM THE PARSING (CLIl NODE 

DEBUG 



CLI ACT: 



10$; 



NONE 



ASL 
MOV 
ADO 
JSR 
RTS 



.WORD 
.WORD 
.UORO 
.WORD 



R2 

10«(R2).R2 
«10$.R2 
PC.(R2^ 
PC 



ACTNUL-10* 
ACTHLP-10* 
ACTNOD-IOI 
ACTBLO 10» 



J MULTIPLY ACTION CODE BY 2 
;OFFSET VALUE 
(ADO BASE VALUE 
:G0 DO ACTION 
jRETURN TO TRVACT 

J BRIEF DESCRIPTION OF ACTION TAKEN 

jO-NULL 

S I -HELP 

i 2 -NODE 

i3 BUILD 



6099 103754 003520 .WORD 

6100 103756 006366 .UORD 

6101 103760 010172 .WORD 

6102 103762 001224 .UORD 

6103 103764 001606 .WORD 

6104 103766 002632 .UQRO 

6105 103770 000116 .WORD 

6106 103772 002642 .WORD 

6107 103774 002724 .WORD 

6108 103776 007732 .WORD 

6109 104000 002732 .UORD 

6110 104002 002742 .UORD 

6111 104004 002752 .UORD 

6112 104006 002762 .UORD 

6113 104010 002772 .UORD 

6114 104012 003002 .UORD 

6115 104014 003012 .UORD 

6116 104016 003140 .UORD 

6117 104020 003146 .WORD 

6118 104022 003224 .UORD 

6119 104024 003302 .UORD 

6120 104026 003440 .UORD 

6121 104030 003646 .UORD 

6122 104032 004724 .UORD 

6123 104034 006450 .UORD 

6124 104036 006542 .UORD 

6125 104040 006646 .UORD 

6126 104042 010106 .UORD 

6127 104044 000124 .UORO 

6128 104046 010236 .UORD 

6129 104050 010340 .UQRO 

6130 104052 004272 .UORO 

6131 104054 010414 .UORO 

6132 104056 010462 .UORO 

6133 104060 010744 .UORO 



Mil 
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SEQ 14? 



ACTRUN-10$ 
ACTPAT-10* 
ACTSAV-10* 
ACTSUM 10) 
ACTI0T-10$ 
ACTEXT-10$ 
ACTNUF-10$ 
ACTXA0-10$ 
ACTSR4-10$ 
ACTSNO-10) 
ACTAL?-10» 
ACT0NE-:O> 
ACTZR0-10> 
ACT1AL-10$ 
ACTOAL-10) 
ACTCTT-10» 
ACTOPR-10) 
ACTTYP-10$ 
ACTSZE-10$ 
ACTCPY-10» 
ACTNA0-10> 
ACTNAL-10> 
ACTRNA-lOt 
ACTRNL-10> 
ACTSMS-10$ 
ACTCMS-10» 
ACTCNT-10$ 
ACTCNL-10$ 
ACTNUL-104 
ACTUNS-lOt 
ACTCSU-10» 
ACT0IR-10$ 
ACT0FT-10$ 
ACTUSF-10$ 
ACTRSP-IOJ 



|4-RUN SPECIFIED TEST 

|5-SET 'MESSAGE PATTERN' TEST FLAG 

16- SAVE NODE TABLE 

1 7 - PRINT SUMMARY TABLE 
ilO-REQUEST ID 
jll-EXIT 

1 12 - NOT ENOUGH INFO 

113- EXTRACT NI NODE ADDRESS FROM INPUT LINE 

114- SAVE POINTER TO BEGINING OF ADDRESS STRING 
■ NODE' FLAG FOR SHOU COMMAND 

FLAG 
FLAG 

FLAG 
FLAG 
FLAG 
FLAG 



slS-SET 
1 16 -SET 



S17-SET 
1 20 -SET 



J21-SET 
I 22 -SET 
J23-SET 
1 24 -SET 



ALPHA' 
ONES' 
ZEROS' 
' lALT' 
OALT' 
CCITT' 

OPER SEL' FLAG 
; 25 -DETERMINE MESSAGE TtPE 

1 26 - DETERMINE MESSAGE SIZE 

127- DETERMINE MESSAGE COPIES 
.30-SET 'NODE/ADDRESS' FLAG 

1 31 -SET 'NODE/ALL' FLAG 
J 32 -SET 'ALL' FLAG FOR RUN COMMAND 
;33-SET 'LOOPPAIR' FLAG FOR RUN CMC 
(34 -SHOU CURRENT MESSAGE PARAMETERS 
S35-RESET MESSAGE PARAMETERS TO DEFAULT 
J 36 -SET 'COUNTER' FLAG FOR SHOU COMMAND 
J 57 -CLEAR LOGICAL NODE NAMED FROM TABLE 
I 40 - 00 NOTHING 
i41-UNSAVE NODE TABLE 
J 42 -CLEAR SUMMARY TABLE 

J43-SET -LOOP DIRECT' FLAG FOR RUN COMMAND 
1 44 -LOOK FOR PASS COUNT DEFAULT 
S45-UNSAVE NODE TABLE FROM A FILE 
1 46 RESPONOER MODE 
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SEQ 14 3 



6135 
6136 
6137 
6136 
6139 
6140 
6141 
6142 
6143 
6144 
6145 
6146 
6147 
6146 
6149 
6150 
6151 
6152 
6153 
6154 
6155 
6156 

6157 
6156 



6159 
6160 
6161 

6162 
6163 
6164 
6165 
6166 
6167 
6166 



104062 
104062 



104070 
104070 



104072 
104072 
104072 
104074 
104100 
104100 
104102 
104106 
104110 
104112 
104116 
104122 
104124 
104124 
104126 



: ACTION ROUTINE TO INDICATE THAT NOT ENOUGH COMMAND 
s INFORMATION HAS BEEN ENTERED 



112737 177777 003220 



ACTNUFj 



MOVB « 1,P$NNUF 



(SET FuAG TO SAt NEED MORE Of COMMAND 



; ACTION ROUTINE TO DO NOTHING 
i 



000207 



ACTNUL: 



RTS PC 



; RE TURN TO PARSER 



ACTION ROUTINE TO PRINT OUT HELP FILE 



010225 
012702 

012246 
012746 
010600 
104417 
062706 
020227 
00IS66 

014502 
000207 



003224 
000001 



000004 
003322 



ACTHLP: 



10$; 



P$PUSH R2 

MOV 0HLPTAB.R2 
PRINTF CR2)» 



CMP 
BNE 
P$P0P 

RTS 



R2 . «HLPEN0 

10$ 

R2 

PC 



;SAVE R2 

MOV R2.(R5)» 
iMOVE POINTER TO BEGINING OF HELP FILE 
; PRINT LINE AND INCREMENT POINTER 

MOV (R2)».-(SP) 
MOV •l.-(SP) 
MOV SP.RO 
TRAP C»PNTF 
ADD «4 . SP 
;SEE IF ENTIRE FILE PRINTED 
;IF NOT. PRINT MORE 
:ELSE. RESTORE R2 AND RETURN 

MOV -(R5).R2 



6169 


104130 






ACTNOD: 


6170 


104130 


105037 


003220 


CLRB 


6171 


104134 


004737 


101656 


JSR 


6172 


104140 


105757 


003221 


TSTB 


6173 


104144 


001134 




BNE 


6174 


104146 






10$: CALL 




104146 


012725 


000006 






104152 


012725 


002316 






104 156 


013725 


002370 






104162 


004437 


070656 






104166 


004600 






6175 


104170 
104170 


014501 




P$POP 


6176 


104172 


001411 




BEQ 


6177 


104174 






PRINTF 




104174 


012746 


052746 





; ACTION ROUTINE TO READ IN NODE PHY. ADDRESS. STORE IT IN ADRBUF 
iANO ENTER IT INTO THE NODE TABLE 



P$NNUF s CLEAR NOTNUF FLAG 

PC.TRVADR ; TRAVERSE ADDRESS. CHECK IF TARGET OR ASSIST 

P$GDBD :CHECK IF RESULTS OK 

60$ :IF NOT. RETURN WITH -I IN P$GOBD 

EDPACK CB0ADR.#ADRBUF.06 ;GET ADDRESS INTO BUFFER 



RI 
20$ 

«CADRER 



MOV 
MOV 
MOV 
JSR 
.WORD 

s CHECK RESULTS FOR NUMBER OF CMAR.S 

MOV -(R5).R1 
tIF OK. BRANCH TO 20$ 
I ELSE PRINT ERROR MESSAGE 

MOV OCADRER. (SP) 



♦6.CR5). 
•ADRBUF. (R5)» 
CB0ADR.(R5)» 
R4.PREG14 
EDPACK -ANCHOR 
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104200 


012746 


AAAAA t 

000001 










A4 AAAA 

OlOOOO 










104^06 


4 AAA 4 Y 

104417 










104210 


AA ^ *T A£ 

062706 


AAAAAA 

000004 






64/6 


104214 


000510 








Ol 79 


I042lo 








3A A ■ 
2U» ! 




104216 


A4 

012725 


00cO30 








104222 


01272^ 


AA^ 1 4 A 

002310 








10422^ 


AAA A 

00445 7 


0 '0090 








% AA '> k ^ 


A^^AAA 

026004 








oloO 


104234 












• /\^ OVA 


A1 AftAI 








ol51 


t AA 


AA1 AO 1 










104240 












t AA 


Af 07A^ 










% AA 0^ A 


At 07A^ 
012 7^0 


AAAAAI 
OOUWl 








104250 


A1 A^AA 
OlOOOO 










10429C 


1 AAA 1 7 










1 AA 


A^ * TA^ 

00£ rOD 


oww* 






ol03 


1042D0 














A1 07AA. 
012 f 40 


A^3J^^4 
U3cODl 








« AA^A_A 


A1 07AA. 


OUUUUl 








1 AA ^ TA 

1042 'O 


A1 AX AA 










104272 


% AAA 1 7 

104*l I 










1042 74 


062 » 06 


OOOW4 








1 AA SAA 

104500 


aaaaca. 
0004^0 








A.f Aft 


1 AA VA^ 












4 AA SA^ 


At 0 7 

01272O 


AAO 
002 324 








4 AA SA^ 


At ^7 0C 

012725 


A/ lAAAA 

OC/OOOo 








1 AA V 1 ^ 


At 

012725 


AA ^ V 4 ^ 

002310 








1 AA VIA 


AAA A V7 

004437 


A7AACA 

070636 








4 AA 

104322 


AAC 4 C A 

0051D0 








^1 A^ 














4 AA 

10* 32* 


022737 


AAAAA4 
000001 


AAV 7 SA 
003 1 34 




0100 


1 AA 


AA t A A7 








^ 1 A A 


4 AA W A 

104334 


At ^ 7 V 7 

012757 


AA 4 ?C 7 

061757 


AAO V 4 A 

002314 






1 f\A V^ 0 


A4 

012 '3' 


AAAAAA 
000000 


00240O 






104330 


AAAAAA 

000400 








0 lYc 


lO*io<: 


A4 OTVT 

Ole r 3 7 


4 7 
OOl 1^1 


AA^ V4 A 

002314 


AAA ■ 

40* : 


Oi*f ^ 


1 AA CAT! 
104 30U 


A1 ^ T ST 

Ole '37 


AAAAA4 
000001 


AA^A^^ 

00240O 




OA 


1 AA 

104300 








CA A ■ 

50 • : 




104900 


00443 7 


0 r0030 








1 AA 


023410 










10* J / » 














0143U1 










lO*3 f 0 


#Wt4 A4 7 
00101 7 








0 i f r 




m 37 V7 

OlC 191 


001034 


UU2312 




V i TO 


l\^^VO 












104406 


012746 


002S24 








104412 


01S746 


002S14 








104416 


012746 


054703 








104422 


012746 


000003 








104426 


010600 










1044 SO 


104416 










1044 32 


062706 


000010 






6199 


1044 S6 


00C207 






60* : 



6200 
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SEQ 144 



BR 
CALL 



BNE 

PRINTF 



BR 

CALL 



CMP 

BEG 

MOV 

MOV 

BR 

MOV 

MOV 

CALL 



60 » 

CMPAOR 



•AORBUF.AILLAOR 



I AND 



RElTURN 
I SEE 



MOV 
MOV 
TRAP 
ADD 



♦ I. (SP; 
SP.RO 
CIPNTF 
♦4,SP 



ir 



PIPQP Rl 



ILLEGAL 

MOV 

MOV 

JSR 

.UORO 



ADDRESS 
♦ILL ADR. (R5). 
•ADRBUT . { R5 ) . 
R4.PREG14 

CMPAOR ANCHOR 



301 

•ILADMS 



iir YES. PRINT 



MOV 
ERROR 



PRINTr •ILAOMI 



(R5).Rl 
MESSAGE 

MOV 
MOV 
MOV 
TRAP 
ADO 

MOV 
MOV 
MOV 
TRAP 
ADD 



•ILAOMS. fSP) 
♦1. (SP) 
SP.RO 
C».'NTr 

♦4.SP 



♦ILAOMI. 
♦I. CSP) 
SP.RO 
C»PNT*" 
♦4.SP 



(SP) 



601 

BINHEX 



•A0RBUr.«6.«STR6Ur 



♦CASIST.CFLAG 
40 » 

♦ARGTY7.KETW02 

♦CTARGT.NOOTf 

501 

•ARGTT6.KETU02 

♦CASIST.NOOTt 

ENTRNO 



J SEE V 



{CONVERT BINARt 

MOV 

MOV 

MOV 

JSR 

.UORD 
J INTO ASCII STRING 
TARGET OR ASSIST 



ADDRESS 
♦STRBUF.(R5)» 
•6.(R5). 
♦ADRBUF.CR5). 
R4.PREG14 
BINHEX ANCHOR 



PtPOP Rl 



BNE 
MOV 

PRINTS 



60 ( 

♦CMDTY7,KfefW0l 
»MSG2 , KE T W02 . ♦S TRBUT 



IMOVE TARGET- INTO KETU02 
jMOVE TARGET INTO NODE TtPE 

jMOVE -ASSIST- INTO KETy02 

(CALL ROUTINE TO ENTER NODE ON TABLE 
JSR R4.PREGI4 
.UORO ENTRfA -ANCHOR 

J CHECK RESULTS 

MOV -(R5).Rl 
J IF NODE TABLE FULL. RETURN 
lELSE. MOVE 'NODE- INTO KEtUOl 
I INDICATE IF TARGET OR ASSIST 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 



♦STRBur. CSP> 
KETU02. CSP) 
#MSG2. -iSP) 
♦5. iSP) 
SP.RO 
C»PNTS 
♦10. SP 



RTS 



PC 



6<?01 




















6202 










UCTION 


ROUTINE 


TO BUILO NODE TABLE 


USING 


The PERIODIC ADDRESS 


6205 










» IDENTIFICATION ^ESSAGES SENT OUT BY 


NODE 


ON THE NI 












f 
1 










6205 




















6206 


104440 








ACTBLO: 










6207 


104440 










PRINTS 


^SGl 


t 
# 


PRINT BUILD' COMMAND MES:sACE 




104440 


012746 


054415 












MOV 4MSG1. fSP) 




104444 


012746 


000001 












MOV •! f^P) 




104450 


010600 














MOV SP RO 




104452 


1044 16 














TRAP CSPNTS 




104454 


062706 


000004 












ADD #4 SP 


6206 


104460 










PRINTS 


*MSGll 






104460 


012746 


054530 












MOV •HSGll fSP) 




104464 


012746 


000001 












MOV #1.-CSP) 




104470 


010600 














MOV SP . RO 




104472 


104416 














TRAP CIPNTS 




104474 


062706 


000004 












ADD #4 . SP 


6209 


104500 










PRINTS 


•MSG 12 






104500 


012746 


054643 












MOV •MSG12. (SP) 




104504 


012746 


000001 












MOV #1 . ( SP ) 




104510 


010600 














MOV SP . RO 




104512 


1044 16 














TRAP CIPNTS 




104514 


062706 


000004 












ADO 94 . SP 


6210 


104520 










PtPuSH 


R2.R3.R4 


9 


SAVE REGISTERS 




104520 


010425 














MOV R4 . ( R5 ) » 




104522 


010325 














MOV R3.(R5)* 




104524 


010225 














MOV R2 . ( R5 ) • 


6211 


104526 










CALL 


SE TUP •ADOMUL 




WRITE MULTICAST ADDRESS 




104526 


012725 

VAC ' C 


000001 

WWW A 












MOV 9A0DMUL ( R5 ) • 




104532 


004437 


070656 












JSR R4.PREG14 




1045S6 


001232 














WORD SETUP -ANCHOR 


6212 


104540 










PtPQP 


R2 


• 


Check FOR ERROR 




104540 


014502 














MOV -(RS) R2 


6213 


104542 


001406 








BEQ 


101 




IF OK. CONTINUE 


6214 


104544 










ERRHRD 


25 . EMSG25 


• 


ELSE REPORT ERROR 




104544 


104456 














TRAP CtERHRO 




104546 


000031 














. yORO 25 




104550 


064157 














hXJRO EMSG25 




104552 


000000 














.WORD 0 


6215 


104554 


000137 


105154 






JMP 


100$ 


• 


LEAVE 


6216 


104560 


















6217 


104560 


005237 


002200 






INC 


BLD^LG 


J 


INDICATE THAT UE ARE IN BUILO MODE 


6218 


104564 


005037 


050314 






CLR 


TEMP 


f 
9 


CLEAR 'NO. NODES IN LAST MIN. COUNTER 


6219 


104570 


005037 


050316 






CLR 


TEMPI 


* 
I 


CLEAR NODE TYPE ARGUMENT (SET TO TARGET' 


6220 


104574 


005037 


050320 






CLR 


TEMP2 


1 


SET INTERVAL COUNTER 


6221 


104600 


012737 


000013 


050322 




MOV 


♦13. TEMPS 


1 
• 


SET 'MINS. SINCE LAST NEW NODE COUNTER 


6222 


104606 


012737 


002412 


0024 10 




MOV 


^OOTBL.SLOT 




SET SLOT TO BEGINING OF NODE TABlE 


6223 


104614 


012704 


003762 






MOV 


♦TIMERS. R4 


1 
1 


SET UP FOR I MINL'TE LOOP 


6224 


104620 








201: 








6225 


104620 


012714 


000074 






MOV 


♦60. .(R4) 






6226 


104624 








30*: 










6227 


104624 










BREAK 




i 


ALLOU FOR CONTROL C INTERRUPT ION 




104624 


104422 














TRAP CtSRK 


6228 


104626 


005714 








TST 


(R4) 


i 


SEE IF INTERVAL IS L*> 


6229 


1046 SO 


001503 








BEO 


70$ 


i 


IF tES BRANCH 


6250 


104t>32 










CALL 


RECEVE 


i 


ELSE. 'check FOR RECEPTION OF lb MEt>^'»a 



^^r^^9i^mBt^ Mb''mt*ii'^ "*cro mzoo ?a MAR m xs-az page s? 5 seq m.. 









0706 V> 












iCD OA DDPr 1 A 




104636 


003044 














• M^^^w ~CvC.Ww WI^W»^V" 














PtPOP 


R2 


1 


R2 HOLO^ NO OF ME^^AGE<i RECFIWEO 






ni4S09 




















001 770 








BEQ 


30$ 


t 
• 


IF NONE KEEP LOQKINC 




104644 


01S70S 


024226 

VC^C C V 






MOV 


RRGNXT ,R3 


• 
1 


ir ONE. GET RECEIVE RINC; POINTFR 


62 34 


1046SO 










CALL 


GETRNX •l.ARRCNXT 


1 
• 


UPDATE POINTER VALIDATE PRFwTOU^ 0C<^fRIPTQR 

V/T Wr^ 1 b. r W A'v ' fc." J W Aw~>w "^w»i J WC A' ' "^^^ 




1046 V) 


01P725 

VAC f C 


024226 

vc~ccv 












MOU •RflGMX T ( R^ ) » 




104654 


012725 


000001 

VWW A 












MOW ^RS^* 




104660 


004437 


070656 












J^R R4 PREC14 




104664 


006450 














UORO CF TRMX ANf HTtR 


o2S5 


104666 


016303 


000004 






10V 


L0ADD(R3).R3 


1 
# 


POINT RS TO MESSAGE BUFFER 


6? 36 


104672 


062703 


000006 

^^^^^^^^^^^^ 






ADD 


♦S0URCC.R3 


1 


POINT RS TO NODE ADDRESS 


6237 


104676 


012702 


002412 

WC^ AC 






MOV 


•NOOTBL .R2 


1 
1 


POINT R2 TO NODE TABLE 


6238 


104702 








40* : 










6259 


104 702 










CALL 


CMP ADR R2.R3 


■ 
• 


SEE IF NODE ALREADY ON TABLE 




104702 


010325 














MOV RS (R5)» 




104704 


010225 














MOV R2 CR5)« 




104706 


004437 


070656 












JSR R4.PREG14 




104712 


0*6004 














.WORD CMPAOR ANCHOR 


6240 


104714 










PtPQP 


Rl 


• 


GET RESULTS OF COMPARE 




104714 


014501 














MOV (R5).Rl 


6241 


104716 


001742 








BEQ 


30$ 


■ 


DON' T ADD TO TABLE IF ALREADY THERE 




104720 








50t : 










6243 


104720 


062702 


000010 






ADO 


9X0, R2 


t 
• 


ELSE CHECK NEXT TABLE ENTRf 


6244 


104724 


022712 


177777 






CMP 


9 l.(R2) 

" A t ^ "C / 


J 
9 


SEE IF AT END OF TABLE 


6245 


104 7 SO 


001364 








BNE 


40 1 

^ V * 


S 


IF NO. COMPARE NEXT ENTRY 


6246 


104732 










CALL 


riNOSL 


s 


IF YES. GET NEXT TABLE SLOT 




104732 


004437 


0706 56 

V • w ^V 












ICR 04 POFG14 




104736 


025466 














WORD FINDSL ANCHOR 


6247 


104740 










PtPQP 


R2 


• 


SEE IF TABLE FULL 




104740 


014502 














MGV fRS) RP 


6248 


104742 


001023 








BNE 


60 1 


s 


IF YES BRANCH 


6249 


104744 


013702 


002410 






MOV 


SLOT ,R2 




IF NO ADD NODE TO TABLE 


6250 


104750 


012322 








MOV 




■ 


6251 


104752 










MOV 




s 


^Tx Rytf<; uorth 


6252 


104754 


011312 








MOV 


fR3) (R2) 


s 




6253 


104756 


113762 


0S0S16 


000003 

vvvw 




MQVB 


TEMPI . 3CR2') 


I 


SET NODE Type f target or ASSIST) 


6254 


104764 


105157 


050316 






C(^1B 


TEMPI 


f 
• 


SWITCH Type for next time 


6255 


104 770 


142737 


000376 


050316 

V^Vw Aw 




V A VvD 


•376 TEMPI 


ft 




6256 


104776 


005237 


050314 

V«^V** A~ 






A>^\* 


TEMP 


• 


INCREMENT 'NODES IN LAST MIN COUNTER 


6257 


105002 


012737 

VAC « f 


OOOOIS 

WW A ^ 


OSOSPP 

V^Vi^CC 






»13 TEMPS 


t 


RESET ' MTNS SINCE LAST NOOE' COLN^'TER 


6258 


105010 


000705 








BR 


sot 




6259 


105012 








60t : 










6260 


105012 










PRINTB 


w 1 no* c w»^WV 




PRINT "TABLE FULL ' MESSAGE 




105012 


012746 

V AC • ^V 


OS 34 IS 












MOW 9N0D C SP ') 




105016 


012746 


055274 












MOV •TABFLC (SPl 




105022 


012746 


000002 












MOV 92. ( SP ^ 




105026 


010600 














MOV SP.RO 




105030 


104414 














TRAP CtPNTB 




105032 


062706 


000006 












ADO , SP 


6261 


105036 


000450 








BR 


80$ 






6262 


105040 








70* : 










6263 


105040 


005537 


050322 






DEC 


TEMPS 


t 


SEE IF 10 MINS SINCE LAST NOOt 


6264 


105044 


001425 








BEQ 


80$ 


1 


IF YES. EXIT 


6265 


105046 


005237 


050320 






INC 


TEMP2 


t 


SEE IF TIME IS UP 


6266 


105052 


023727 


050320 


000050 




CMP 


TEMP2,»40. 







Ei2 

Ll^A'TlSN^'TSeLl &58**Siu^IN?i'*^ MACRO H1200 22 MAR 94 15:12 PAGE 52 4 SEQ 14? 



t>267 


105060 


001417 






BEQ 


60 i 


1 
• 


IF YES EXIT 




6268 


105062 








PRINTS 


•8L0MSG, TEMP , TEMP2 


• 


Fl St . PRINT "STILL 


WORKING MESSAGE 




105062 


013746 


050520 












MOV TEMPP ( SP ^ 




105066 


013746 


050514 












MOV TEMP ( SP ) 




105072 


012746 


052475 












MOV •SLOMSG ( 5P ) 




105076 


012746 


000005 












MOV 95 CSP) 




105102 


010600 














MOV SP.RO 




105104 


104416 














TRAP CtPNTS 




105106 


062706 


000010 












ADO AlO-SP 


6269 


105112 


005057 


050514 




CLR 


TEMP 








6270 


105116 


000640 






BR 


20) 








6271 


105120 






80» : 












6272 


105120 








CALL 


SETUP OKILMUL 


\ 


KILL THE MULTICAST 


ADDRESS 




105120 


012725 


000002 












•K IL MUL . ( R5 ) . 




105124 


004437 


070656 










JSR 


R4.PREG14 




105130 


001232 












.WORD 


SETUP ANCHOR 


6273 


105132 








PIPOP 


R2 


\ 


CHECK FOR ERROR 






105132 


014502 












MOV 


-CR5).R2 


6274 


105134 


001405 






BEQ 


901 




IF OK CONTINUE 




6275 


105136 








ERRHRO 


54,EMSG25 




ELSE, REPORT ERROR 






105136 


104456 














TRAP C*ERHRD 




105140 


000042 














.WORD 54 




105142 


064157 














.WORD EMSG25 




105144 


000000 














.WORD 0 


6276 


105146 


000402 






BR 


lOOS 




AND LEAVE 




6277 


105150 






90): 












6278 


105150 


004737 


115676 




JSR 


PC.ACTSNO 


t 


PRINT NODE TABLE 




6279 


105154 






1001: 












6280 


105154 


005057 


002200 




CLR 


BLDPLG 


• 


INDIChTE THAT UE ARE NO LONGER BulLOiNG 


6281 


105160 








PfPOP 


R2.R5.R4 




RESTORE REGISTERS 






105160 


014502 












MOV 


-CR5).R2 




105162 


014505 












MOV 


-(R5).R3 




105164 


014504 












MOV 


(R5\R4 


6282 


105166 


000207 






RTS 


PC 








6283 




















6284 








;ACTION 


ROUTINE 


TO PRINT OUT TM£ SUMMARY 


DATA 




6285 




















6286 


105170 


105057 


005220 


ACTSUM; 


CLRB 


PINNUF 


: CLEAR NOTNUF FLAG 




6287 


105174 








PI PUSH 


R2.R5.R4 










105174 


010425 












MOV 


R4.CR5). 




105176 


010525 












MOV 


R3.(R5). 




105200 


010225 












MOV 


R2.(R5)» 


6288 


105202 


012701 


002714 




MOV 


•STATBL.Rl 


• 


MOVE ADDRESS OF TABLE TO Rl 


6289 


105206 


005711 






TST 


CRD 


X 


SEE IF TABLE EMPTY 




6290 


105210 


001015 






BNE 


101 


« 


IF NOT. CONT. 




6291 


105212 








PRINTS 


«TABFMT.»SUMM 


; 


ELSE PRINT • TABLE 


EMPTY' MESSAGE 




105212 


012746 


053422 












MOV »SUMM. CSP) 




105216 


012746 


055546 












MOV 0TA8EMT. (SP"i 




105222 


012746 


000002 












MOV ♦2. (SP) 




105226 


010600 














MOV SP.RO 




105230 


104417 














TRAP C»PNTr 




105232 


062706 


000006 












ADD 96.SP 


6292 


105236 


000541 






BR 


20$ 




EXIT 




6293 


105240 


021127 


177777 


lOf : 


CMP 


(RD.O-l 




SEE IF AT END OF TABLE 


6294 


105244 


001556 






BEQ 


20 » 




IF YES, EXIT 




6295 


105246 


005711 






TST 


CRD 




SEE IF REST OF TABLE EMPTY 


6296 


105250 


001554 






BEQ 


20 » 




IF YES. EXIT 





CVNIAAO Of QNA NI EXERCISER DIAG 
CLI ACTION TABLE AND ROUTINES 



t>^«>7 


105252 








105252 


012725 


002324 




105256 


012725 


000006 




105262 


010125 






105264 


004437 


070656 




105270 


005150 




6298 


105272 








105272 


012746 


002324 




105276 


012746 


070043 




105302 


012746 


000002 




105306 


010600 






105310 


104417 






105312 


062706 


000006 


62<><> 


105316 








105316 


012746 


070064 




105322 


012746 


000001 




105326 


010600 






105330 


104417 






105332 


062706 


000004 


6300 


105336 


012702 


000026 


6301 


105342 


012703 


002664 


6302 


105346 






6303 


105346 


112123 




6304 


105350 


005302 




630S 


105352 


001375 




6306 


105354 


013702 


002672 


6307 


105360 


013703 


002674 


630S 


105364 


013704 


002676 


6309 


105370 








105370 


010446 






105372 


010346 






105374 


010246 






105376 


012746 


070150 




105402 


012746 


000004 




105406 


010600 






105410 


104417 






105412 


062706 


000012 


6310 


105416 








105416 


012746 


070177 




105422 


012746 


000001 




105426 


010600 






105430 


104417 






105432 


062706 


000004 


6311 


105436 


013702 


002700 


6312 


105442 








105442 


012725 


002702 




105446 


004437 


070656 




105452 


007446 




6313 


105454 








105454 


012746 


100526 




105460 


010246 






105462 


012746 


070262 




105466 


012746 


000003 




105472 


010600 






105474 


104417 






1054 76 


062706 


000010 


6514 


105502 
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SEQ 148 



CALL 



BINHEX Rl.«6.«STRBUr^ 



PRINTr «SUMnSl.«STRBur 



15»; 



PRINTF #SUMriS2 



MOV «26.R2 

MOV ♦STATBF.R3 

MOVB (R1)*.(R3>* 

DEC R2 

BNE 15$ 

MOV STATBF.6.R2 

MOV STATBr»10,R3 

MOV STATBr»12.R4 

PRINTF «SUMriS3.R2.R3.R4 



PRINTF ♦SUMMS4 



MOV STATBF.14,R2 

CALL BINOEC *STATBF.IC 



PRINTF *SUriMS5,R2,<»0ECSTR 



PRINT SUMMARr 



I NODE ADDRESS 



DATA 

MOV 

MOV 

MOV 

JSR 

.WORD 



•STRBUF.(R5)» 
•6,<'R5). 
R1.(R5). 
R4.PREG14 
BINHEX ANCHOR 



I FIRST HEADER 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

MOV 

MOV 

TRAP 

ADD 



J GET STATISTICS SIZE FOR THIS NODE 
; GET BUFFER ADDRESS FOR STATISTICS 



OSTRBUF , 

•SUMMSl. 

•2. (SP) 

5P.R0 

CIPNTF 

•6.SP 

♦SUMMS2. 
•I. (SP) 
SP.RO 
CIPNTF 
*4.SP 



CaP J 
(SP) 



(SP) 



; BUFFER THE STATISTICS 
t HAVE ALL Bytes for NODE 
: BRANCH IF NOT 
J RX NOT COMPLETE 
i RX COMPLETE 
; LENGTH ERRORS 
; PRINT THEM OUT 



BEEN XFERRED? 



MOV 


R4. (SP) 




HOV 


R3. (SP) 




MOV 


R2. (SP) 




MOV 


♦SUMMS5. 


(SP) 


MOV 


♦4. (SP) 




MOV 


SP.RO 




TRAP 


CtPNTF 




ADO 


012. SP 




MOV 


♦SUMMS4 . 


(SP) 


MOV 


»l. tSP) 




MOV 


SP.RO 




TRAP 


CtPNTF 




ADD 


♦4.SP 





CALL BINDEC OSTATEF .2*? 



SECOND HEADER 



COMPARE ERRORS 

PUT BYTES COMPARED INTO ASCII STRING 
MOV •STATBF.16.(R5) 
JSR R4.PREG14 
.UOPD BINOEC ANCHOR 

PRINT THEM OUT 

MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

PUT BYTES TRANSFERED INTO 



•OECSTR. (SP) 
R2. (SP) 
»Sl.f»1S5. (sP> 
05. -CSPl 
SP.RO 
CIPNTF 
010. SP 
ASCII STRING 



GI2 



CVNIAAO OEONA NI EXERCISER DIAG MACRO mZOO 
CLI ACTION TABLE AND ROUTINES 



6515 



6S16 
eSl7 



651S 
6S19 
6320 
6321 
6322 
632S 
6324 
6325 
6326 
6327 
6328 
6329 
6330 
6331 
6332 
6333 
6334 
6335 
6336 
6337 
6338 
6339 
6340 
6341 
6342 
6343 
6344 
6345 
6346 
6347 
6348 
&349 
6350 



6551 

6352 
6353 
6354 



105502 
105506 
105512 
105514 
105514 
105520 
105524 
105530 
105532 
105534 
105540 
105542 
105542 
105544 
105546 
105550 



105552 
105552 
105556 
105560 
105564 
105564 
105570 
105570 
105574 
105600 
105604 
105606 
105606 
105610 
105612 
105612 



012725 
004437 
007446 

012746 
012746 
012746 
010600 
104417 
062706 
000637 

014502 
014503 
014504 

000207 



105737 
001402 
000137 

105037 

012725 
012725 
004437 
026004 

014501 
001012 



002706 
070656 



100526 
070300 
000002 



000006 



003222 
106466 

003220 

002656 
002316 
070656 
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PRINTF •SUMMSft.OOECSTR 



t PRINT 



MOV 
JSR 
.WORD 



20<: 



BR 

PIPOP 



RTS 



10« 

R2.R5.R4 



PC 



t PLAY IT AGAIN. SAM 

MOV 
MOV 
MOV 



SEQ 14<» 



*STATBr. 22. (R5). 
R4.PREG14 
BINOEC -ANCHOR 

MOV ♦OECSTR. (SP) 

MOV »SUMMS6. (SP) 

MOV 02. (SP) 

MOV SP.RO 

TRAP CIPNTF 

ADO «6.SP 



-(R5).R2 
-(R5).R5 
-CR5).R4 



sACTION ROUTINE TO INITIATE THE RE(JUEST 10 TEST TO THE SPECIFIED NODE 
I 

I FUNCTIONAL DESCRIPTION 

: THIS SUBROUTINE BUILDS AND TRANSMITS REQUEST ID PACKETS 

TO THE NODE SPECIFIED BY THE OPERATOR IN THE COMMAND LINE. 

I THE SYSTEM ID INFO OF THE SPECIFIED NODE IS THEN DISPLAYED. 

IF THE NODE DOES NOT RESPOND BEFORE 60 SECONDS HAVE PASSED 

: AN ERROR IS REPORTED TO THE OPERATOR. 

i INPUTS - IMPLICIT • THE SPECIFIED NODE ADDRESS IS LOCATED IN ADRBUF. 

i OUTPUTS - SYSTEM ID INFO OR ERROR MESSAGE PRINTED TO OPERATOR. 

! CALLING PROCEDURE - JSR PC. ACT IDT 

I SIDE EFFECTS - XRGNXT POINTER IS UPDATED BY A CALL TO BLDREQ SUB. 

1 REGISTER USAGE - Rl POINTS TO tUDMO FOR WRITE MODE OPERATIONS. 
( R2 IS SCRATCH. 

: R3 POINTS TO THE RECEIVED MESSAGE BUFFER. 

, R4 POINTS TO TIMOUT TIMER 

: 



ACT IDT: 



let: 



15$! 



TSTB 

BEQ 

JMP 

CLRB 
CALL 



P$POP 
BNE 

PRINTF 



PtAERP 

10* 

ISO* 

P$NNUF 
CMPAOR 



«ADRBUF.»ILLADR 



Rl 
20$ 

«ILADMS 



:SEE IF ADDRESS ENTERED WAS VALID 
i IF NOT. EXIT ACTION ROUTINE 



: CLEAR NOTNUF FLAG 

: SEE IF ILLEGAL ADDRESS 

MOV •ILLP0R.(R5). 
MOV •A0R8UF.(R5)* 
JSR R4.PREG14 
.WORD CMPAOR ANCHOR 



-(R5).R1 

ELSE PRINT iLtEGAL AODRE-i*^ ME:>SAGE 



MOV 

IF NO. CONTINUE 



Hi2 
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105«>12 


012746 


052565 








105616 


012746 


000001 








105622 


010600 










105624 


104417 










105626 


062706 


000004 






6355 


105652 


000157 


106466 


JMP 


150< 


6556 


105636 




20* : 






©357 


105636 






P$PUSM 


R1.R2.R5,R4 




105656 


010425 










105640 


010325 










105642 


010225 










105644 


010125 








6358 


105646 






CALL 


CMPADR OADRBLF . OPMYADR 




105646 


012725 


004010 








105652 


012725 


002516 








105656 


004457 


070656 








105662 


026004 








6359 


105664 






PIPQP 


Rl 




105664 


014501 








6360 


10566^ 


001006 




BNE 


25 » 


6361 


105670 






ERRHRO 


64.EMSG64 




105670 


104456 










105672 


^^^K^^ A ^^^^ 

000100 










105674 


066615 










105676 


AM 

000000 








6362 


105700 


000157 


106456 


JMP 


120 S 


6363 


105704 




2St: 






6364 


105704 


012757 


177776 050520 


MOV 


•-2, TEMP2 


6365 


105712 






CALL 


BLOREQ 




105712 


004437 


070656 








105716 


006550 








6366 


105720 






CALL 


XMIT ^XMTOAT 




105720 


012725 


000001 








105724 


004457 


070656 








105730 


002526 








636 ' 


105732 






P»POP 


R2 




105732 


014502 








6368 


105734 


001402 




BEQ 


SOI 


6369 


105756 


000137 


106450 




90$ 


6370 


105 742 




50$: 






o371 


105742 


005757 


050274 


TST 


RETRYS 


6372 


105746 


001412 




BEQ 


40> 


6375 


105750 






PRINTF 


4RTRYER 




105750 


012746 


052411 








105754 


012746 


000001 








105760 


010600 










105762 


104417 










105764 


062706 


000004 






6374 


105770 


000157 


106456 


JMP 


120 i 




1U3 If'* 




40» : 






65?6 


105774 


012704 


005762 


MOV 


«TIMERS.R4 


6577 


106000 


012714 


000012 


MOV 


«10. .(R4) 


6578 


106004 




50*: 




6379 


106004 






BREAK 






106004 


104422 








6580 


106006 


005714 




TST 


(R4) 


6581 


106010 


001427 




BEQ 


60 1 



SEO 150 



MOV ♦ILAOMS. (SP> 

MOV 01. (SP) 

MOV SP.RO 

TRAP CtPNir 

ADD M.SP 



SAVE REGISTERS 



MOV 


R4.(R5). 


MOV 


R3.(R5). 


MOV 


R2.(R5). 


MOV 


R1.(R5)» 


; IS OWN 


(HOST NODE) 


MOV 


•PHYA0R.(R5). 


MOV 


•AORBUF.CRS). 


JSR 


R4.PREG14 


.WORD 


CMPADR ANCHOR 


MOV 


(R5).Rl 



REPORT THAT UE CAN T USE OUR OUN AOORESb 

TRAP C (ERHRO 
.WORD 64 
.UORO EMSG64 
.WORD 0 

RESTORE REGISTERS AND EXIT 

SET COUNTER FOR NO. Of TIMES TRIED 

BUIID REQUEST ID MESSAGE PACKET 
JSR R4.PREG14 
.WORD BLDREO- ANCHOR 

TRANSMIT REQUEST 

MOV •XMTDAT.(R5). 
JSR R4,PREG14 
.UORD XMIT -ANCHOR 

GET RESULTS. R2 ■ SUCCESS/FAILURE 
MOV -(R5).R2 

IF OK BRANCH 
ELSE JUMP TO 90* 

SEE IF FAILED DUE TO EXCESSIVE COLLISIONS 
IF NO. CONT. 

YES. PRINT 'EXCESSIVE COLLISIONS' MESSAGE 

MOV *RTRrER. CSP) 

MOV 01. (SP) 

MOV SP.RO 
TRAP CtPNTF 
ADO 94. SP 

EXIT 

SET UP FOR 10 SECOND TIMOL'T 



TRAP CtBRK 
SEE IF TIME HAS EXPIRED 
IF YES, BRANCH 



112 
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6Se2 


106012 










CALL 


RECEVE 




106012 


004457 


070656 












106016 


005044 












6585 


106020 










P$POH 


H2 




106020 


014502 












b584 


106022 


001770 








DC A 

BEQ 


C A * 

50* 


6585 


106024 


015705 


024226 






nuv 


DD/^kiVT OX 
NKuNa I , 


6586 


106050 


016505 


AAA AAX 

000004 






nuv 


LUnUUvnd i |Kd 


658"* 


106054 


026527 


AAAA^^ 

000022 


AC 4 4 4 C 




tnr' 


CTDPDTrDV^ A"MD 


6588 


106042 


001426 








btU 


f o» 


6589 


106044 


005257 


AE A V^A 

050520 






XNC 


TCMDO 


6590 


106050 










V.ALL 


PCTDklV Al AODfllaVT 
ut 1 KM A VI , VtfKuNA 1 




106050 


012725 


024226 












106054 


012725 


AAAAA4 

000001 












106060 


AAX X V T 

0Q443 r 


07065O 












106064 


AAX X C A 

006450 












6391 


106066 


001346 








Due 




6592 


106070 








XAA - 

60f : 






6595 


106070 












ACMCIT33 




106070 


012746 


064050 












4 A^4 

106074 


f\% 

012 /4o 


OOOOOl 












106100 


A 4 AX AA 

010600 














106102 


104417 














106104 


062706 


000004 










6594 


106110 


AAC V ^ 

005237 


AC AA 

050032 








b . iWtL 


6595 


106114 


000157 


106440 






IMC 


1 AAA 


6596 


106120 








^A* . 

70I : 






6397 


« AX « *\A 

106120 


AAC T 

005237 


AEAA VA 

05002C> 






XNv, 


C DCP 
3 . Ktl, 


6398 


106124 


AX V ^ 

062737 


AAAACf 

000056 


ACAAX O 

050042 




Ann 


AAiL c vrcD 


6399 


% AX « 

106152 


A 4 A V A^ 

010302 








nuv 


ox 


6400 


4 AX 4 VX 

106154 


AX ^ A 

062702 


A A AAX O 

000042 






HUD 


ACTAnno DO 

«3 IHUUn , H£ 


6401 


106140 








a A A 

80$ : 






6402 


106140 










CALL 


DTklk^V DO A^ AC TDDl C 




106140 


012725 


002524 












4 AX 4 X X 

106144 


A 4 

012725 


AAAAAX 

000006 












4 AX 4 C A 


A4 A'^'>C 

010225 














% AX 4 C ^ 

106152 


AAX M'W^ 

004437 


070656 












106156 


AAC 4 e A 

005150 












6403 


106160 










PHINIr 


AC TMCi** % AC TDDl C 




4 AX 4 X A 

106160 


012746 


002524 












106164 


012746 


067266 












4 AX 4 "7 A 


A4 "^^XX 

012746 


AAAAA*^ 

000002 












4 AX 4 "^X 

106174 


A4 AXAA 

010600 














4 AX 4 "^X 

I06176 


4 AX X 4 ^ 

104417 














4 AX AA 

106200 


AX "^^AX 

062706 


AAAAAX 

000006 










O404 


106204 


A 4 X V A*^ 

016302 


AAAA "^-^ 

000022 






nuv 


CTDCDTfDV^ DO 


6405 


106210 










PR IN I r 


ACTMCf^O DO 




106210 


010246 














4 AX *> 4 

106212 


A4 ^X X 

012746 


AX "7 VOC 

067323 












106216 


A 4 "^^XX 

012746 


AAAAA'^ 

000002 




























106224 


104417 














10622C 


062706 


000006 










6406 


106252 


116502 


000027 






flOVB 


SIVERS(R5).R2 


6407 


106256 










PRINTF 


•SIMSG5.R2 




106256 


010246 














106240 


012746 


067560 











SEQ 151 



CHECK FOR ANSWER 

JSR R4.PREG14 
.WORD RECEVE -ANCHOR 
R2 HOLDS NO. OF BUFFERS RECEIVED 

HOV -(R5),R2 
IF NO BUFFERS RECEIVED. LOOP 
GET RECEIVE RING POINTER 
POINT R5 TO MESSAGE BUFFER 
SEE IF MESSAGE RECEIVED IS IN REPLY 
IF YES. BRANCH TO 70$ 
INCREMENT RETRY COUNTER 
THROU OUT THE PACKET 
MOV 
MOV 
JSR 
.WORD 



TO ONE SEN 



*RRGNXT.(RS)» 
•l.(R5)» 
R4.PREG14 
GETRNX -ANCHOR 



IF NO. LOOK FOR CORRECT REPLY MESSAGE 



ELSE. REPORT ERROR 



UPDATE SUMMARY DATA 
AND EXIT 



MOV 

MOV 

MOV 

TRAP 

ADO 



«eMSG22. 
*1. (SP) 
SP.RO 
CJPNTF 
•4.SP 



(SP) 



INCREMENT 'RECEIVED MESSAGES CO-JNTER 
UPDATE 'BYTES TRANSFERED COUNTER 
PUT POINTER INTO R2 
POINT R2 TO ADDRESS 



PUT ADDRESS INTO STRBUF 



MOV 
MOV 
MOV 
JSR 
.WORD 

PRINT REMOTE NODE ADDRESS 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

GET RECEIPT NUMBER 
PRINT RECEIPT NUMBER 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

GET VERSION NO. AND PRINT 



•STRBUF. (R5). 
*6.(R5)» 
R2.(R5)» 
R4.PREG14 
BINHEX ANCHOR 



•STRBUF. 

•SIMSGl. 

92. (SP) 

SP.RO 

C»PNTF 

•6.SP 



(SP) 
(SP) 



R2.-(SP) 
•SIMSG2. -(SP) 
♦2. -CSP) 
SP.RO 
C»PNTF 
•6.SP 



MOV 
MOV 



R2. (SP) 
•SIMSG5. 



SP^ 
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106244 


012746 


000002 






106250 


010600 








106252 


104417 








106254 


062706 


0O0O06 




6408 


106260 


116302 


000030 


MOVB 


6409 


106264 
106264 


010246 




PRINTF 




106266 


012746 


067420 






106272 


012746 


000002 






106276 


010600 








106300 


104417 








106302 


062706 


000006 




6410 


106306 


116302 


000031 


MOVB 


6411 


106312 
106312 


010246 




PRINTF" 




106314 


012746 


067441 






106320 


012746 


000002 






106324 


010600 








106326 


104417 








106330 


062706 


000006 




6412 


106334 


116302 


000035 


MOVB 


6413 


106340 
106340 


010246 




PRINTF 




106342 


012746 


067467 






106346 


012746 


000002 






106352 


010600 








106354 


104417 








106356 


062706 


000006 




6414 


106362 


116302 


000053 


MOVB 


6415 


106366 
106366 


010246 




PRINTF 




106370 


012746 


067515 






106374 


012746 


000002 






106400 


010600 








106402 


104417 








106404 


062706 


000006 




6416 


106410 






CALL 




106410 


012725 


024226 






106414 


012725 


000001 






106420 


004437 


070656 






106424 


006450 






6417 


106426 


000404 




BR 


6418 


106430 






90f : 


6419 


106430 
106430 
106432 
106434 
106436 


104455 
000030 
064103 
070306 




ERRDF 


6420 


106440 






100 f: 


6421 


106440 






CALL 




106440 


012725 


002316 






106444 


012725 


000001 






106450 


004437 


070656 






106454 


007176 






6422 


106456 






110$: 


6423 


106456 






120f : 


6424 


106456 






P$P0P 



I GET ECO NO. AND PRINT 



MOV 
MOV 
TRAP 
ADD 



I GET USER ECO NO. 



MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
AND PRINT 



CALL GETRNX «1.«RRGNXT 



lOOf 



MOV 

MOV 

MOV 

MOV 

TRAP 

AOD 

GET FUNCTON CODE AND PRINT 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

GET DEVICE TYPE AND PRINT 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 



SEO 15? 



♦2. (SP-) 
SP.RO 
C»PNTF 
•6.SP 



R2. (SP) 
•SIMSG4. -(SP) 
♦2, (SP) 
SP.RO 
C»PNTF 
•6.SP 



R2. (SP) 
♦SIMSG5. -(SP) 
•2. (SP) 
SP.RO 
C»PNTF 
•6.SP 



R2. (SP) 

♦SIMSG6. 

♦2.-(SP) 

SP.RO 

C»PNTF 

•6.SP 



R2.-(SP) 
•SIMSG7. 
♦2. (SP) 
SP.RO 
C»PNTF 
•6.SP 



(SP) 



(SP) 



UPDATE POINTER. VALIDATE PREVIOUS DESCRIPTOR 
MOV ♦RRGNXT.(R5)» 
MOV •l.(R5)» 
JSR R4.PREG14 
.WORD GETRNX ANCHOR 



: EXIT 
: ERROR 



CAN' T TRANSMIT PACKETS 

TRAP C»ERDF 
.WORD 24 
.WORD EMSG24 
.WORD ERR I 



CALL WRITES ♦l.#AORBUF 



UPDATE SUMMARY TABLE 
MOV 
MOV 
JSR 
.WORD 



i RESTORE REGISTERS 



♦A0RBUF.(R5). 

•l.(R5). 

R4.PREG14 

URITES -ANCHOR 
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SEQ 153 





106456 


014501 








106460 


A « A C A^ 

014502 








106462 


014503 








106464 


014504 






6425 


106466 








6426 


106466 


AAA 'HA ^ 

000207 






6427 










6428 










6429 










6430 










6431 


1064 70 








6432 


106470 


4 AC ^9 A 

105714 






6433 


106472 


AA4 ilAf 

001401 






6434 


106474 


AAAJI V 7 

000437 






6435 


1064 76 








6436 


1064 76 


01273 f 


Oo16h4 


OOc31c 


64 37 


I06504 


A1 

013 rOl 


AA0T70 




64 30 


106310 


AAiLTAI 

UUdjUI 






6439 


1 A^C 1 ^ 


A£'37A1 

06c rOl 






£ Jl it A 

6440 


106516 










1 Aj: g 1 £. 


Ulc f 40 








lU65cc 


Ulc 


UUUUUl 






I065c6 


A1 A£.AA 
OlOOOO 








4 A^ C VA 

106530 


4 AAA i 7 

104417 








106532 


06c 706 






6441 


106536 










106536 


0 1 3 746 








106542 


All 

013746 


AA^VTA 

002 3 74 






4 A£ e 

106546 


011146 








106550 


012746 


ACCAA*^ 






4 A^ ee A 

106554 


012746 


000004 






106560 


A 4 A^ A A 

010600 








106562 


104417 








106564 


Af ^A^ 

062706 


A AAA 4 

000012 






1O6570 


105037 


AAV ^ '^A 

003220 




^A A "X 

6443 


106574 








£.AA A 


106574 


AAA'^A^ 

000207 






0*»4d 










6446 










^AA 7 










04«»0 


1063 76 










106576 


A 4 ^ • T 

012737 


AAAA'^A 
000020 


003734 


043U 






























04D5 










04D4 










04DD 


100006 








04D0 






















106612 


012725 


002316 






106616 


013725 


002370 






106622 


004437 


070656 






106626 


004600 






6457 


106630 










106630 


014537 


003222 




6458 


106634 


105737 


003222 





130$: 



MOV 
MOV 
MOV 
MOV 



(R5).Rl 
-(R5).R2 

(R5).R3 
-(R5).R4 



RTS 



PC 



5ACTION ROUTINE TO CHECK TOR ADDITION PARAMETER CHANGE INPUTS 
{AND PRINT OUT NEW PARAMETER INFO WHEN ALL INPUT ARE PROCESSED 



ACTMSG: 



10*: 



TSTB (R4) 

BEQ 10$ 

BR 20* 

MOV OCMDTY6.KEYW01 

MOV P*TYPE.R1 

ASL Rl 

ADD «MSGTAB.R1 

PRINTF «nsGPRn 



s CHECK FOR ADDITIONAL 

(BR IF NO 

tIF YES RETURN 



INPUT 



tGET MESSAGE TYPE ASCII STRING ADDRESS 
:INT0 Rl 



PRINTF «MSG4.(R1).P*SIZE.P*CPYS 



20$: 



CLRB 
RTS 



P$NNUF 
PC 



(PRINT 'MESSAGE' COMMAND MESSAGE 

MOV 
MOV 
MOV 
TRAP 
ADD 

(PRINT MSG PARAMETERS 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

(CLEAR NOTNUF FLAG 



♦MSGPRM. (SP) 
91. (SP) 
SP.RO 
CiPNTF 
04. SP 

P*CPYS. -(SP) 
P»SIZE.-(SP) 
(Rl).-(SP) 
•MSG4. (SP) 
♦4. (SP) 
SP.RO 
CiPNTF 
•12. SP 



ACTION ROUTINE TO RETURN CONTROL TO THE SUPERVISOR 



ACTEXTi 



MOV #CEXIT,CFLAG 

RTS PC 



(SET EXIT FLAG 



(ACTION ROUTINE TO TAKE NI NODE ADDRESS FROM INPUT STRING BUFFER 
(AND STORE IT IN THE BUFFER CALLED ADRBUF 



ACTXAD: 



CALL EDPACK CBOADR . OADRBUF . 06 



P*POP P$AERR 
TSTB P$AERR 



(PUT NODE ADDRESS INTO ADRBUF 
MOV «6.(R5)» 
MOV *AORBUF . ( R5 ) ' 

MOV CB0ADR.(R5'<. 
JSR R4.PREG14 
.WORD EDPACK -ANCHOR 
(SET ADDRESS- 12 CHAR. GOOO/BAD FLAG 
MOV CR5).P*AERR 

(IF GOOD. RETURN 



L12 



CVNIAAQ DEQNA NI EXER 
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001419 

W A~ AC 








BEQ 


10* 








6460 


106642 










PRINTF 


«CA0RER 






lELSE. PRINT ERROR MESSAGE 




106642 


012746 


052746 














MOV 




106646 


012746 


000001 














MOV 




106652 


010600 
















MOV 




1066 S4 


10441 7 
















TRAP 




106656 


062706 


000004 














ADD 


6461 


106662 


105037 


003220 






CLRB 


PINNUF 






! AND CLEAR 'NOT ENOUGH' FLAG 


6462 


106666 








10* : 












6463 


106666 


000207 








RTS 


PC 








6464 






















6465 










i ACT ION 


ROUTINE 


TO STORE POINTER TO 


BEGINING OF OPERATOR INPUT ADDRESS 


6466 










;IN COMMAND INPUT BUFFER 








6467 






















6460 


106670 


010437 


002370 




ACTSR4 : 


MOV 


R4 , CBOADR 






:SAVE STRING POINTER 


6469 


106674 


000207 






10$: 


RTS 


PC 








6470 






















6471 










: ACTION 


ROUTINE 


TO SET MESSAGE 


TYPE 




ALPHA FLAG 


6472 






















6473 






















6474 


106676 


012737 


000000 


002372 


ACT ALP: 


MOV 


«Ai PHA.P$TYPE 






:SET MESSAGE TYPE 


6475 


106704 


000207 








RTS 


PC 








6476 






















6477 










: ACT ION 


ROUTINE 


TO SET MESSAGE 


TYPE 


« 


ALL ONES FLAG 


6478 






















6479 


106706 


012737 


000001 

www A 


002372 


ACTONE: 


MOV 


OONES.PITYPE 






;SET MESSAGE TYPE 


6480 


106714 


000207 








RTS 


PC 








6481 






















6482 










1 ACT ION 


ROUTINE 


TO SET MESSAGE 


TYPE 


m 


ALL ZEROS FLAG 


6483 






















6484 


106716 


012737 


000002 


002372 


ACTZRQ: 


MOV 


«ZEROS.PtTYPE 






sSET MESSAGE T^PE 


6485 


106724 


000207 








RTS 


PC 








6486 






















6487 










I ACTION 


ROUTINE 


TO SET MESSAGE 


TYPE 


X 


ALTERNATING ONES FLAG 


6488 






















6489 


106726 


012737 


000003 

vw w** 


002372 


ACTIAL: 


MOV 


•ONE ALT.P* TYPE 






sSET MESSAGE TYPE 


6490 


106734 


000207 








RTS 


PC 








6491 










c 












6492 










s ACT ION 


ROUTINE 


TO SET MESSAGE 


TYPE 


K 


ALTERNATING ZEROS FLAG 


6493 






















6494 


106736 


012737 


000004 


002372 


ACTOAL ! 


MOV 


•ZROALT.PITYPE 






jSET MESSAGE TYPE 


6495 


106744 


000207 








RTS 


PC 








6496 






















6497 










i ACTION 


ROUTINE 


TO SET MESSAGE 


TYPE 


m 


CCITT FLAG 


6498 






















6499 


106746 


012737 


000005 


002372 


ACTCTT: 


MOV 


OCCITT.PITYPE 






sSET MESSAGE TYPE 


6500 


106754 


000207 








RTS 


PC 








6501 






















6502 










i ACT ION 


ROUTINE 


TO SET MESSAGE 


TYPE 


m 


OPERATOR SELECTED INPUT 


6503 






















6504 


106756 


105037 


003223 




ACTOPR: 


CLRB 


P*M£RR 






1 CLEAR MESSAGE ERROR FLAG 


6505 


106762 


004737 


101656 






JSR 


PC.TRVAOR 






1 PARSE THROUGH INPUT STRING 


6506 


106766 


105737 


003221 






TSTB 


P*GOBO 






:TEST GOOD/BAD FLAG 


6507 


106772 


001403 








BEQ 


10* 






ilF GOOD. BR 10$ 


6508 


106774 


105037 


003221 






CLRB 


P$G0B0 






; CLEAR FLAG 


6509 


107000 


000415 








BR 


20* 






sSET CTARGT FLAG AND RETURN 


6510 


107002 


022737 


000006 


003734 


10$: 


CMP 


«0PRSEL.CFLAG 






J CHECK TO SEE IF STRING VALID 



SEQ 154 



•CADRER, -(SP) 
•1. -fSP) 
SP.RO 
C$PNTF 

•4,SP 
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6511 
6512 
6513 



6514 

6515 
6516 
6517 



6518 
6519 
65 20 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 



6541 
6542 
6543 
6544 
6545 
6546 
6547 
6548 
6549 
6550 
6551 
6552 
6553 
6554 



107010 
107012 
107020 
107020 
107024 
107030 
107032 
107034 
107042 
107044 
107044 
107050 
107054 
107056 
107060 
107064 
107066 
107072 
107074 
107102 



107104 
107110 



107112 
107120 
107122 
107130 
107132 
107140 
107142 
107142 
107146 
107152 
107154 
107156 
107162 
107166 



107170 
107176 
107200 
107206 
107210 
107216 
107220 



001011 
012757 

013725 
004437 
025352 
000423 
022737 
001011 

012746 
012746 
010600 
104417 
062706 
000406 
105737 
001003 
112737 
000207 



004737 
000207 



023727 
003410 
022737 
003404 
013737 
000410 

012746 
012746 
010600 
104417 
062706 
004737 
000207 



023727 
003410 
022737 
003404 
013737 
000410 



000006 002372 

002370 
070656 



000000 003734 20$ ; 



053756 
000001 



000004 
003223 
177777 



106470 



003214 
001001 
003214 



053575 
000001 



000004 
106470 



003214 
000400 
003214 



003221 



30»i 
401; 



BNE 20$ 

MOV ♦OPRSEL.P$TYPE 
CALL SELMSG CBOAOR 



BR 40$ 

CMP OCTARGT.CFLAG 

BNE 30$ 

PRINTF «iJNBONO 



BR 40$ 

TSTB P$MERR 

BNE 40$ 

M0V6 «-l.P$GOBD 

RTS PC 



SEQ 155 

I IF NOT OK. RETURN WITH ERROR FLAG SET 
J SET MESSAGE TYPE 

jPUT OPERATOR SELECTED STRING INTO BUFFER 
MOV CB0A0R,(R5)« 
JSR R4.PRCG14 
. WORD SELMSG - ANCHOR 

J RE TURN 

J SEE IF CTARGT FLAG SET. IF YES ERROR 
I IF NOT SET. BR 30$ 

(ELSE PRINT UNBOUNDED INPUT STRING ERR. ISO. 

MOV •UNBONP. -(SP) 
MOV (SP) 
MOV SP.RO 
TRAP C$PNTF 
ADD #4 . SP 

I p£ TURN 

;IF P$MERR FLAG SET. UNBOUNDED STRING 
;UAS ENTERED, ERROR ALREADY HANDLED 
tSET ERROR FLAG AND RETURN 
(RETURN 



ACTION ROUTINE TO CHECK FOR MORE INPUT AFTER MESSAGE TYPE HAS BEEN 
ALTERED 



ACTTYP: 



JSR 
RTS 



PC.ACTMSG 
PC 



t CHECK FOR ADDITIONAL COMMANDS 



; ACT ION ROUTINE TO INPUT MESSAGE SIZE PARAMETER. CHECK TO SEE IF 
{IT IS WITHIN LEGAL LIMITS. CHANGE PARAMETER AND THEN RETURN TO 
iSEE IF MORE INPUT EXISTA 



000040 
003214 
002374 



ACTSZE: 



10$: 



20$: 



CMP 
BLE 
CMP 
BLE 
MOV 
BR 

PRINTF 



JSR 
RTS 



P$NUM.«32. 
10$ 

♦513. .P$NUM 
10$ 

P$NUM.P$SIZE 
20$ 

♦SIZLMT 



PC.ACTMSG 
PC 



(CHECK FOR VALID SIZE RANGE 



sIF VALID CONTINUE 
:SET MESSAGE SIZE 

.-PRINT SIZE LIMITS EXCEEDED MESSAGE 



MOV 
MOV 
MOV 
TRAP 
ADD 

i CHECK FOR ADDITIONAL COMMANDS 



•SIZLMT. -(SP) 
♦I. (SP) 
SP.RO 
C$PNTF 
♦4.SP 



; ACTION ROUTINE TO INPUT COPIES PARAMETER. CHECK TO SEE IF IT IS 
UITHIN LEGAL LIMITS. CHANGE PARAMETER AND THEN RETURN TO SEE IF 
MORE INPUT PARAMETERS EXIST 



000000 
003214 
002376 



ACTCPY: CMP 
BLE 
CMP 
BLE 
MOV 
BR 



P$NUM.<K) 
10$ 

♦256. .P$NUM 
10$ 

P$NUM.P$CPYS 
20$ 



10$ 



PRINTF *CPYLMT 



{CHECK FOR VALID COPIES RANGE 



8 IF VALID. CONTINUE 
.SET MESSAGE COPIES 

{PRINT COPY LIMIT EXCEEDED MESSAGE 



N12 
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CLZ ACTION TABLE AND ROUTINES 





107220 


012746 


053511 










MOV •CPYLMT. (SP) 




107224 


012746 


000001 










MOV 91. (SP) 




107230 


010600 












MOV SP.RO 




107232 


104417 












TRAP C$PNTF 




107234 


062706 


000004 










ADD W.SP 


6555 


107240 


004737 


106470 


20(: 


JSR 


PC.ACTMSG 




(CHECK FOR ADDITIONAL COMMANDS 


6556 


107244 


000207 






RTS 


PC 






6557 








; 










6558 








;ACTION 


ROUTINE 


TO CLEAR NODE 


SPECIFIED 


BY PHYSICAL ADDRESS FROM NODE TABLE 


6559 








; 










6560 


107246 


105037 


003220 


ACTNAD: 


CLRB 


P$NNUF 




t CLEAR NOTNUF FLAG 


6561 


107252 


105737 


003222 




TSTB 


P$AERR 




:SEE IF ADDRESS ENTERED UAS VALID 


6562 


107256 


001051 






BNE 


40$ 




J IF NOT. EXIT ACTION ROUTINE 


6563 


107260 








P$PUSH 


R2.R3 




:SAVE R2 AND R3 




107260 


010325 












MOV R3.(R5)» 




107262 


010225 












MOV R2 . ( R5 ) . 


6564 


107264 


012702 


002316 




MOV 


«A0RBUF.R2 




;MOVE ADDRESS OF ADDRESS INTO R2 


6565 


107270 


012703 


002412 




MOV 


«N0DTBL.R3 




tMOVE ADDRESS OF NODE TABLE INTO R3 


6566 


107274 






10(: 


CALL 


CMPADR R2.R3 




:SEE IF ADDRESSES MATCH 




107274 


010325 












MOV R3.(R5). 




107276 


010225 












MOV R2 . ( R5 ) . 




107300 


004437 


070656 










JSR R4.PREG14 




107304 


026004 












. UORO CMPADR - ANCHOR 


6567 


107306 








P»P0P 


Rl 








107306 


014501 












MOV (R5).R1 


6566 


107310 


001416 






BEQ 


20$ 




lIF YES. BR 20$ 


6569 


107312 


062703 


000010 




ADD 


no.RS 




jELSE POINT R3 TO NEXT ENTRY 


6570 


107316 


022713 


177777 




CMP 


♦-l.(R3) 




:SEE IF END OF TABLE 


6571 


107322 


001364 






BNE 


10$ 




;IF NOT. COMPARE NEXT ENTRY 


6572 


107324 








PRINTF 


♦NOCMPR 




jELSE. PRINT ADDRESS DOESN'T COMPARE MSG. 




107324 


012746 


053664 










MOV «NOCMPR. -(SP) 




107330 


012746 


000001 










MOV 01. -(SP) 




107334 


010600 












MOV SP.RO 




107336 


104417 












TRAP C$PNTF 




107340 


062706 


000004 










ADD »4 . SP 


6573 


107344 


000414 






BR 


30$ 




(RETURN 


6574 


107346 


005023 




20$: 


CLR 


CR3)» 




J ELSE. CLEAR NODE FROM TABLE 


6575 


107350 


005023 






CLR 


(R3)* 






6576 


107352 


005023 






CLR 


(R3)» 






6577 


107354 


005013 






CLR 


(R3) 






657S 


107356 








PRINTF 


«AOROEL 




(PRINT NODE DELETED FROM TABLE MESSAGE 




107356 


012746 


054044 










MOV OAORDEL . - ( SP ) 




107362 


012746 


000001 










MOV «1,-(SP) 




107366 


010600 












MOV SP.RO 




107370 


104417 












TRAP C$PNTF 




107372 


062706 


000004 










ADD »4 . SP 


6579 


107376 






30$: 


P$P0P 


R2.R3 




(RESTORE R2 AND R5 




107376 


014502 










MOV -(R5),R2 




107400 


014503 












MOV -(R5).R3 


6580 


107402 


000207 




40$: 


RTS 


PC 




(RETURN 


6561 


















6562 








i ACTION 


ROUTINE 


TO CLEAR NODE 


TABLE 




6563 


















6564 


107404 






ACTNAL: 


P$PUSH 


R2.R3 




(SAVE R2.R3 




107404 


010325 












MOV R3,(R5). 




107406 


010225 












MOV R2.(R5)* 


6565 


107410 


012703 


000050 




MOV 


»TBLLEN.R3 




(SET INCR. COUNTER TO 40 
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CLI ACTION TABLE AMD ROUTINES 



6566 


107414 


012702 


002412 






HOV 


«N00TBL.R2 




J MOVE NODE TABLE ADDRESS INTO R2 


6507 


107420 


005022 






lot: 


CLR 


(R2)* 




iCLEAR BtTE in NOOE TABEL 


6500 


107422 


005S0S 








DEC 


R3 




1 DECREMENT COUNTER 




6509 


107424 


001575 








BNE 


lOt 




iCONTINUE UNTIL DONE 




6590 


107426 










PRINTF 


•TA6CLR.«NQD 




1 PRINT NODE TABLE CLEARED MESSAGE 




107426 


012746 


055415 














MOV •NOO. (SP) 




107452 


012746 


054220 














MOV •TA6CLR , • ( SP > 




1074S6 


012746 


000002 














MOV #2 . - ( SP ) 




107442 


010600 
















MOV SP.RO 




107444 


104417 
















TRAP CtPNTF 




107446 


062706 


000006 














AM) 46. SP 


6591 


107452 


105057 


005220 






CLRB 


PtNNOF 




(CLEAR NOTNUF FLAG 


6592 


107456 










PJPOP 


R2.RS 




(RESTORE R2 AND RS 






107456 


014502 














MOV 


-CR5).R2 




107460 


014505 














MOV 


•(R5).R5 


659S 


107462 


000207 








RTS 


PC 








6594 










i 












6595 










(ACT ION ROUTINE 


TO RUN SPECIFIED 


TEST 






6596 










1 












6597 


107464 








ACTRUN: 












6596 


107464 


042757 


100000 


000000 




BIC 


4BIT15.FLAC 




t CLEAR OPERATOR FLAG 




6599 


107472 


105057 


005220 






CLRB 


PINNUF 




1 CLEAR 'NOT ENOUGH' FLAG 


6600 


107476 


015757 


005214 


002400 




MOV 


PINUri.PIPASS 








6601 


107504 


022757 


000052 


002512 


lOt: 


CMP 


•CRNALL.KE>UOl 




1 SEE IF 'ALL TEST 




6602 


107512 


001004 








BNE 


201 




1 IF NO. CONTINUE 




6603 


107514 










CALL 


RUNALL 




i IF YES. 00 ALLNODE 






107514 


004457 


070656 












JSR 


R4.PREC14 




107520 


016726 














.WORD 


RUNALL -ANCHOR 


6604 


107522 


000425 








BR 


sot 








6605 


107524 


022757 


000055 


002512 


201: 


CMP 


•CLUPPR.KETUDl 




1 IS IT LOOPPAIR' TEST 


6606 


1075S2 


001004 








BNE 


50 1 




i IF NO. CONTINUE 




6607 


107534 










CALL 


RUNLUP 




1 IF tES. DO LOOPPAIR 






107534 


004457 


070656 












JSR 


R4.PREG14 




107540 


020004 














.UORD 


RUNLUP ANCHOR 


6606 


107542 


000415 








BR 


sot 








6609 


107S44 


022757 


000045 


002512 


50*: 


CMP 


•COIR.KETUDl 




t IS IT DIRECT TEST 




6610 


107552 


001004 








BNE 


40 1 




( IF NO. CONTINUE 




6611 


107554 










CALL 


RUNOIR 




1 IF YES. DO DIRECT 






107554 


004457 


070656 












JSR 


R4.PREG14 




107560 


017552 














.UORD 


RUNOIR ANCHOR 


6612 


107562 


000405 








BR 


50t 








661S 


107564 








40 1: 


CALL 


RUNPAT 




1 ELSE. ITS PATTERN 


TEST 




107564 


004457 


070656 












JSR 


R4.PREG14 




107570 


021446 














WORD 


RUNPAT ANCHOR 


6614 


107572 


025727 


002400 


177777 


50t: 


CMP 


PtPASS.4 1 




1 SEE IF PASS SET FOR 


INOEFINATE 


6615 


107600 


001741 








BEQ 


lot 




1 IF YES. LOOP 




6616 


107602 


005557 


002400 






DEC 


PtPASS 




, HAVE WE DONE ALL PASSES? 


6617 


107606 


001556 








BNE 


lot 




1 IF NO. LOOP 




6616 


107610 


000207 








RTS 


PC 








6619 






















6620 










Iaction 


ROUTINE 


TO SET 'RUN ALL' 


FLAG 






6621 






















6622 


107612 


012757 


000052 


002512 


ACTRNA: 


MOV 


«CRNALL.KEvuDl 




I SET FLAG 




662S 


107620 


000207 








RTS 


PC 








6624 


107622 








RUNALL : 


CALL 


OIRCOM 




1 RUN LOOPOIRECT TEST 






107622 


004457 


070656 












JSR 


R4.PREG14 




107626 


017572 














.UORD 


DIRCOn ANCHOR 



Ci5 















PftPOP 


D1 


1 


CHECK RESULTS 






10 76 SO 


014V)1 














MOV 


(R5),Rl 














RFQ 

www 


?ot 


1 


IF OK, BRANCH 






OPP 701 


OOOOOl 

WVW A 






CMP 


dl Rl 


\ 


ELSE. WAS TABLE EMPTr? 




107640 


001410 








AFQ 


lot 


t 


IF TES. DON T PRINT 


ABORT MESSAGE 




10764P 










PRINTS 


dPA^ABT 


1 


ELSE ABORT TEST AND 


PRINT MESSAGE 




1076A9 




06067P 














MOV tPASABT. 




107646 


01?746 

VAC f 


OOOOOl 

www A 














MOV OL-CSP) 




1076SP 


010600 

V * WW 
















MOV SP.RO 




1076S4 


















TRAP CtPNTS 




1076S6 


06P706 


0OOOO4 

wvw^ 














ADO #4.5? 


66 SO 


10766P 


0001S7 

WV A ^ r 


1102 34 

& Ave 




lOt • 


JHP 


loot 










107666 


0127S7 


002412 


002410 


20t • 

C- V * ■ 


MOV 


AfjOOTBL SLOT 

~iWw 1 wW • Jww I 


1 


MOVE NODE TABLE ADDRESS TO SLOT 




107674 










CALL 


FULSLT 

■ V^ • 


i 


FIND FIRST ENTRY 






107674 


004437 


070656 










JSR 


R4.PREG14 




107700 


025556 














.WORD 


FULSLT ANCHOR 




107702 

& V ' ' VIC 


013701 


002410 






MOV 


SLOT ,Rl 


s 


AND PUT TARGET ADDRESS INTO Rl 


6634 


107706 


013737 


002376 


050326 


sot : 


MOV 


PtCPYS.CPTCNT 


• 
* 


SET UP LOOP FOR NO. OF COPIES 


6635 


107714 


062737 


000010 


0024 10 




ADD 


•10. SLOT 


1 


UPDATE SLOT 




6636 


107722 










CALL 


ruLSLT 


1 
• 


GET NEXT ASSIST NODE 


FROM TABLE 




107722 


004437 


070656 












JSR 


R4.PREG14 




107726 


025556 














.WORD 


FULSLT ANCHOR 


6637 


107730 


013702 


002410 






MOV 


SLOT ,R2 








6638 


107754 


022737 


177777 


002410 




CMP 


♦-1.SL0T 


% 


SEE IF AT END OF TABLE 


6639 


107742 


001517 








BEQ 


90t 


t 
• 


IF YES. BR 




6640 


107744 








40t • 


CALL 


BLOT AS Rl SLOT 


1 


BUILD FULL ASSIST MESSAGE 




107744 


01S725 


002410 












MOV 


SL0T.(R5). 




10775O 

AV r r 


V * V &c ^ 














MOV 


R1.CR5). 




107752 


004437 

W^ ^ ' 


070656 












JSR 


R4.PREG14 




107756 


00550P 














.WORD 


BLOFAS ANCHOR 


6641 


107760 










CALL 


XMIT OXMTOAT 




TRANSMIT MESSAGE 






107760 




OOOOOl 

www & 












MOV 


•XMTDAT.(R5)» 




107764 


0044S7 

W^ ^ W r 


0706S6 

V » W^W 












JSR 


R4.PREG14 




107770 


OOP 326 

WC 














.WORD 


XMIT ANCHOR 


6642 


107772 










PtPQP 


PS 


• 


CHECK RESULTS 






107772 


014503 

VA^ ^V«# 














MOV 


(R5).R3 


6643 


107774 


001404 








BCQ 


50t 


S 


IF OK. CONTINUE 




6644 


107776 










ERRHRO 


37 EMSG24 


1 


PRINT ERROR MESSAGE 






107776 


1044S6 

& V^^ 
















TRAP CtERHfiO 




110000 


000045 
















.UORO 57 




110002 


064103 

W^ A 
















.WORD EMSG24 




110004 


000000 
















.WORD 0 


6645 


110006 








soft ' 


w w 


RTNHCX Rl 06 OSTRBUF 


• 


PRINT ERROR MESSAGE 






110006 




WC 












MOV 


»STR8UF.(R5). 




110012 


012725 


WVWw 












MOV 


»6.(R5). 




110016 


010125 

V&V AC ^ 














MOV 


Rl.(R5). 




110020 


004437 


070656 

V • W>^V 












JSR 


R4.PREG14 




110024 


005 ISO 














.WORD 


BINHEX ANCHOR 


6646 


110026 










CALl 


BINMfx R2.«6.«STRBU1 


i 








110026 


012725 


002346 












MOV 


♦STRBU1.(R5">- 




110032 


012725 


000006 












MOV 


•6.(R5). 




110036 


010225 














MOV 


R2.(R5). 




110040 


004437 


070656 












JSR 


R4.PREG14 




110044 


OOSISO 














.WORD 


BINHEX ANCHOR 


6647 


110046 










PRINTS 


«TSTMS4,«ARGTW.«STRBUF .•ARGTV6.«STRBU1 t ASSISI NODE • 




110046 


01? M6 


002346 














MOV »f TRB« I. 




110052 


012746 


06174 7 














MOV •ARGT>C>. 
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1 100S4> 


012746 


002324 












110062 


012746 


061757 












110066 


012746 


060770 












110072 


012746 


000005 












110076 


010600 














110100 


104414 














110102 


062706 


000014 










t>«>40 


110106 










CALL 


RUNCOM 




110106 


004437 


070656 












110112 


021104 












6649 


110114 










PIPOP 


R4 




110114 


014504 












66:>0 


110116 


001405 








BEQ 


70$ 


6651 


110120 








60f : 


ERRHRO 


28.EMSG42.ERR3 




110120 


104456 














110122 


000034 














110124 


064764 














110126 


070432 












6652 


110130 


000410 








BR 


sot 


6653 


110132 








70»: 


PRINTB 


•OKru 




110132 


012746 


061157 












110136 


012746 


000001 












110142 


010600 














110144 


104414 














110146 


062706 


000004 










6654 


110152 


005337 


050326 




SOI: 


DEC 


CPtCNT 


6655 


110156 


001272 








BNE 


40$ 


6656 


110160 










CALL 


URITES •2.R1.SL0T 




110160 


013725 


002410 












110164 


010125 














110166 


012725 


000002 












110172 


004437 


070656 












110176 


007176 












6657 


110200 


000642 








BR 


30$ 


665a 


110202 


062701 


000010 




90$: 


ADD 


•10. Rl 


6659 


110206 


010137 


002410 






nov 


Rl.SLOT 


6660 


110212 










CALL 


PULSLT 




110212 


004437 


070656 












110216 


025556 














110220 


013701 


0024 IC 






MOV 


SLOT.Rl 


6662 


110224 


022737 


177777 


002410 




CMP 


•-l.SLOT 


6663 


110232 


001225 








BNE 


30$ 


6664 


110234 








1001: 


RETURN 






110234 


000207 












6665 










> 






6666 










{ACTION ROUTINE 


TO :,tT RUN LOOP 


6667 










i 






6668 














6669 


110236 








ACTDIR: 






6670 


110236 


012737 


000043 


002312 




MOV 


«C0IR.KEVU01 


6671 


110244 


000207 








RTS 


PC 


6672 
















6673 


110246 








RUNOIR: 


CALL 


DIRCOM 




110P46 


004437 


070656 












110252 


017372 












6674 


110254 










PtPOP 


Rl 




110254 


014501 













SEQ 



MOV »STRBtjr, fjP) 

MOV •ARGTT7. (SP) 

MOV •TSTMS4. (SP) 

MOV #5. fiP) 

MOV SP.RO 
TRAP CIPNTB 
AOO •M.SP 

i 00 RECEIVE LOOP 

JSR R4,PREG14 
.UORO RUNCOn ANChOP 

, CHECK RESULTS 

MOV (R5).«4 

J IF OK. LOOP SOME MORE 

i ELSE PRINT ERROR MESSAGE 

TRAP C(ERK«)0 
.UORD 2S 
.UORO EMSG4<^ 
.WORD ERR 5 



MOV •OKru. (SP) 

MOV #1. (SP) 

MOV SP.RO 
TRAP Ct'^TB 
AOO 94. SP 

J DECREMENT 'COPIES' COUNTER 
a IF MORE TO 00. LOOP 
t ELSE. UPDATE SUMMARY TABLE 

MOV SL0T.(R5)» 
MOV R1.(R5). 
MOV •2.(R5). 
JSR R4.PREG14 
.UORD URITES -ANCHOR 

i POINT Rl TO NEXT TARGET NODE 

J l*»DATE SLOT 

t GET ADDRESS FROM ^ABLE 

JSR R4.PREG14 
.UORO FULSLT- ANCHOR 

; SEE IF END OF TABLE 

t IF NO. CONTINUE ELSE. FINISHED 

RTS PC 

FLAG 



I SET FLAG 



CALL COMMON CODE 

JSR R4.PREG14 

.UORD DIRCOH ANCHOR 

MOV (RS\Rl 
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SEQ 160 



6675 


110256 


022701 


000001 


6676 


110262 


001400 




6677 


110264 
110264 


000207 




6678 


110266 


005001 




6679 


110270 


012737 


002412 


6680 


110276 








110276 


004437 


070656 




110302 


025556 




6681 


110304 


022737 


177777 


6682 


110312 


001015 




o683 


110314 








110314 


012746 


055415 




I 10320 


012746 


055546 




110324 


012746 


000002 




110330 


010600 






110332 


104417 






110334 


062706 


000006 


6684 


110340 


012701 


000001 


6685 


110344 


000547 




6686 


110 346 


012737 


002412 


6687 


110354 


013737 


002576 


6688 


110362 








110362 


004437 


070656 




110366 


025556 




6689 


110370 


022737 


177777 


6690 


110376 


001532 




6691 


110400 








110400 


012725 


002524 




110404 


012725 


000006 




110410 


013725 


002410 




110414 


004437 


070656 




110420 


005150 




6692 


110422 








110422 


012746 


002524 




110426 


012746 


061557 




110432 


012746 


060755 




110436 


012746 


000005 




110442 


010600 






110444 


104414 






110446 


062706 


000010 


6693 


110452 


022737 


000005 


6694 


110460 


001016 




6695 


110462 


013701 


002572 


6696 


110466 


006301 




6697 


110470 


062701 


003324 


6696 


110474 
110474 


011146 






110476 


012746 


061271 




110502 


012746 


000002 




110506 


010600 






110510 


104414 






110512 


062706 


000006 


6699 


110516 








110516 


013725 


002410 




110522 


004437 


070656 




110526 


005256 





10»: 
OIRCOM: 



50«: 



40»; 



CMP 
BEQ 

RETURN 

CLR 
MOV 
CALL 



CMP 
BNE 

PRINTr 



• l.Rl 
lOf 



Rl 

«NOOTBL.SLOT 

rULSLT 



•l.SLOT 
10> 

OTABEMT . «NQO 



, WAS TABLE EMPTr? 

I IF YES. DON'T PRINT 

RTS PC 
I CLEAR RESULTS REGISTER 
I MOVE NODE TABLE ADDRESS TO SLOT 
I SEE IF TABLE EMPTT 

JSR R4,PREGI4 
.WORD FULSLT -ANCHOR 



IF NO CONTINUE 

ELSE. PRINT "TABLE EMPTr- MESSAGE 



MOV 

BR 

MOV 

MOV 

CALL 



CMP 
BEQ 
CALL 



«1.R1 
1001 

«N00TBL.SL0T 

P»CPTS.CPYCNT 

FULSLT 



#-l.SL0T 
100« 

BINHEX SL0T.«6.«STRBUF 



MOV «N00. (SP) 

MOV ♦TABEMT, -f SP) 

MOV •2.-(SP) 

MOV SP.RO 

TRAP C»PNTF 

ADD •6.SP 



] PUT TABLE EMPTY' INDICATOR IN Rl 



J SET UP FOR NO. OF COPIES 

: GET NEXT NODE IN TABLE 

JSR R4,PREG14 
.WORD FULSLT -ANCHOR 

I SEE IF AT END OF TABLE 

J IF YES. EXIT 

t PRINT ADDRESS BEING TESTED 



PRINTB •TSTMS2, •DIRECT. OSTRBJF 



NODE ADDRESS 



MOV 
MOV 
MOV 
JSR 
.UORD 



♦STRBUF.(R5). 
•6.CR5). 
SLOT.CRS). 
R4.PREG14 
BINHEX -ANCHOR 



MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



CMP 
BNE 
MOV 
ASL 
ADD 

PRINTB 



OCPATRN.KETUDl 
401 

P$TYPE.R1 
Rl 

♦MSGTAB.Rl 
»MESPAl,(Rn 



•STRBUF. -(SP) 
•DIRECT. (SP) 
•TSTMS2,-(SP) 
•5. (SP) 
SP.RO 
CtPNTB 
•10. SP 



CALL 



BLDLO SLOT 



I CALL BUILD 



LOOPDIRECT 
MOV 
JSR 
.WORD 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



SUBROUTINE 
SLOT.(RS). 
R4.PREG14 

BLDLO ANCHOR 



(Rl). (5P) 
•MESPAl. ($?■> 
•2. (SP) 
SP.RO 
C»PNTB 
•6.SP 
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CLI ACTION TABLE AND ROUTINES 



6700 


110530 










CALL 


XMIT •XMTDAT 


1 


TRANSMIT LOOPOIRECT MESSAGES 






110530 


012725 


000001 












MOV •XMTDAT. (R5)» 




110534 


004437 


070656 












JSR R4.PREG14 




110540 


002326 














.WORD XMIT -ANCHOR 


6701 


110542 










P*POP 


R2 


t 


GET RESULTS. R2 • SUCCESS/FAILURE 




110542 


014502 














MOV (R5).H2 


6702 


110544 


001405 








BEQ 


60* 


1 


IF OK. EXIT 




6705 


110546 








50*: 


ERRHRD 


26,EMSG24 


• 


ELSE PRINT ERROR MESSAGE 






110546 


104456 














TRAP 


C*ERHRO 




110550 


000032 














.WORD 


26 




110552 


064103 














.WORD 


EMSG24 




110554 


000000 














.WORD 


0 


6704 


110556 


000676 








BR 


20* 








6705 


110560 








60*: 


CALL 


RUNCOM 


1 


DO RECEIVE LOOP 






110560 


004437 


070656 












JSR H4.PREG14 




110564 


021104 














. WORD RUNCOM 


ANCHOR 


6706 


110566 










P*POP 


R4 


t 


GCT RESULTS 






110566 


014504 














MOV (R5).R4 


6707 


110570 


001407 








BEQ 


70* 


■ 


IF NO ERRORS. CONTINUE 




670S 


110572 










ERRHRO 


27.EMSG54.ERR2 










110572 


104456 














TRAP 


CIERHRO 




110574 


000033 














.WORD 


27 




110576 


064322 














.WORD 


EMSG54 




110600 


070544 














.WORD 


ERR2 


6709 


110602 


012701 


177777 






MOV 


• l.Rl 


( 


PUT ERROR INDICATOR INTO Rl 




6710 


110606 


000410 








BR 


80* 








6711 


110610 








70$: 


PRINTB 


•OK 


t 


RESPONSE OK 






110610 


012746 


061025 












MOV 


•OK. (SP) 




110614 


012746 


000001 












MOV 


•1. (SP J 




110620 


010600 














MOV 


SP.RO 




110622 


104414 














TRAP 


C*PNTB 




110624 


062706 


000004 












ADD 


•4.SP 


6712 


110630 


005337 


050326 




60* : 


DEC 


CPrCNT 


5 


DECREMENT COPIES' COUNTER 




6713 


110634 


001272 








BNE 


50* 


S 


IF MORE TO DO. LOOP 




6714 


110636 










CALL 


WRITES ALSLOT 


S 


ELSE. UPDATE SUMMARY TABLE 






110636 


015725 


002410 












MOV SL0T.(R5). 




110642 


012725 


000001 












MOV •1.CR5). 




110646 


004437 


070656 












JSR R4.PREG14 




110652 


007176 














.WORD WRITES 


ANCHOR 


6715 


110654 


062757 


000010 


002410 


90*: 


AOO 


•10. SLOT 


• 


INCREMENT TO NEXT NODE TABLE 


ENTRY 


6716 


110662 


000654 








BR 


20 » 








6717 


110664 








100*: 


RETURN 


Rl 










110664 


010125 














MOV Rl.(R5). 




110666 


000207 














RTS PC 




6718 










1 












6719 










(ACTION 


ROUTINE 


TO SET 'RUN LOOPPAIR' 


FLAG 




6720 










s 












6721 


110670 


012757 


000053 


002512 


ACTRNL: 


HOV 


•CLUPPR.KETUOl 


( 


SET FLAG 




6722 


110676 


000207 








RTS 


PC 








6723 






















6724 


110700 








RUNLlP: 












6725 


110700 










CALL 


CHECK 










110700 


004457 


070656 












JSR R4.PREG14 




110704 


025624 














.WORD CHECK 


ANCHOR 


6726 


110706 


005057 


050516 






CLR 


TEMPI 


i 


CLEAR HEADER PRINTED' FLAG 




6727 


110712 


012757 


002412 


002410 




MOV 


•NOOTBL.SLOT 


i 


MOVE NODE TABLE ADDRESS TO SLQt 


6728 


110720 










CALL 


FULSLT 


1 


SEE IF TABLE EMPT> 
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110720 


004437 


070656 












110724 


02SSS6 












6729 


110726 


022737 


177777 


002410 




CMP 


• l.SLOT 


6730 


110734 


001014 








BNE 


9» 


6731 


110736 










PRINTF 


«TABEMT.«NOO 




110736 


012746 


053415 












110742 


012746 


053346 












110746 


012746 


000002 












110752 


010600 














110754 


104417 














110756 


062706 


000006 










6752 


110762 


000137 


111776 






JMP 


sot 


6733 


110766 


012737 


002412 


002410 


91: 


MOV 


♦NOOTBL.SLOT 


6734 


110774 


013737 


002376 


050326 


101: 


MOV 


PtCPYS.CPYCNT 


6735 


111002 










CALL 


FULSLT 




111002 


004437 


070656 












111006 


025556 












6736 


lllOlO 


022737 


177777 


002410 




CMP 


0 l.SLOT 


6737 


111016 


001002 








BNE 


lit 


6730 


111020 


000137 


111776 






JMP 


30 1 


6739 


111024 


013701 


002410 




111: 


MOV 


SLOT.Rl 


6740 


111030 


126127 


000007 


000000 




CMPB 


7(R1),4»CTARGT 


6741 


111036 


001422 








BEQ 


18 1 


6742 


111040 








17$: 


PRINTF 


•EMSG32 




111040 


012746 


064245 












111044 


012746 


000001 












111050 


010600 














111052 


104417 














111054 


062706 


000004 










6743 


111060 










PRINTF 


•PASABT 




111060 


012746 


060672 












111064 


012746 


000001 












111070 


010600 














111072 


104417 














111074 


062706 


000004 










6744 


111100 


000137 


111776 






JMP 


301 


6745 


111104 


010102 






181: 


MOV 


R1.R2 


6746 


111106 


062702 


000010 




1121: 


AOO 


«10.R2 


6747 


111112 


021227 


000000 






CMP 


(R2).#0 


6748 


111116 


001773 








BEQ 


112t 


6749 


111120 


022712 


177777 






CMP 


•-l.(R2) 


6750 


111124 


001002 








BNE 


not 


6751 


111126 


000137 


111776 






JMP 


30 1 


6752 


111132 


126227 


000007 


000001 


not: 


CMPB 


7(R2).«CASIST 


6753 


111140 


001337 








BNE 


I7t 


6754 


111142 








201: 


CALL 


BLOAST R2.R1 




111142 


010125 














111144 


010225 














111146 


004437 


070656 












111152 


006030 












6755 


111154 










CALL 


XMIT 




111154 


004437 


070656 












111160 


002326 












6756 


111162 










PIPOP 


R4 




111162 


014504 












6757 


111164 


001406 








BEQ 


22 1 


6758 


111166 








21 «: 


ERRHRD 


26.EMSG24 



SEQ 16? 



JSR R4.PREG14 
.WORD ruLSLT ANCHOR 

> 

I IF NO, CONTINUE 

I ELSE. PRINT -TABLE EMPTY" MESSAGE 

MOV ♦NOD. (SP) 

MOV •TABEMT. (SP) 

MOV 92. CSP) 

MOV SP.RO 
TRAP CtPNTF 
AOO »6 . SP 

J MOVE NODE TABLE ADDRESS TO SLOT 

; SET UP FOR NO. OF COPIES 

I GET NEXT NODE IN TABLE 

JSR R4.PREG14 
.WORD FULSLT ANCHOR 

s SEE IF AT END OF TABLE 

J IF YES. EXIT 

: MOVE SLOT TO Rl 

I SEE IF TARGET NODE 

t IF YES. BRANCH 

( ELSE PRINT ERROR MESSAGE 

MOV ♦EMSG32. (SP) 

MOV 01. (SP) 

MOV SP.RO 
TRAP CtPNTF 
ADO »4.SP 

MOV «PASABT.-(SP) 
MOV •l.-(SP) 
MOV SP.RO 
TRAP CtPNTF 
ADD »4.SP 

; EXIT 

: POINT Rl TO TARGET NODE 
I AND R2 TO ASSIST NODE 



s IS R2 POINTING TO AN ASSIST NODE? 

J IF NOT. ERROR. ELSE CONTINUE 

s BUILD TRANSMIT ASSIST MESSAGE 
MOV R1.(R5)« 
MOV R2.(R5). 
JSR R4.PREG14 
.UORD BLOAST -ANCHOR 

s TRANSMIT MESSAGE 

JSR R4.PREG14 
.WORD XMIT ANCHOR 

J GET RESULTS. R2 • SUCCESS 'FAILLiRE 
MOV (R5).R4 

: IF OK. EXIT 

I ELSE PRINT ERROR MESSAGE 
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111166 


104456 












TRAP C*ERhRD 






111170 


000032 












.UORO 26 






111172 


064103 












.UORO EMSG24 






111174 


000000 












.UORO 0 




6759 


111176 


000157 


111712 


JMP 


28* 










6760 


111202 






22* : CALL 


BINHEX Rl,«6,«STRBur 


i 


PRINT ERROR MESSAGE 








111202 


012725 


002324 








MOV 


•STRBUF.(R5)» 






111206 


012725 


000006 








MOV 


♦6 . ( R5 ) . 






111212 


010125 










MOV 


R1.(R5)» 






111214 


004457 


070656 








JSR 


R4.PREG14 






111220 


005150 










.UORO 


Bl^tCX ANCHOR 




e761 


111222 






CALL 


B.NHEX R2.«6.«STRBU1 


t 










111222 


012725 


002346 








MOV 


•STRBU1,(R5). 






111226 


012725 


000006 








MOV 


•6.CR5). 






111232 


010225 










MOV 


R2.(R5). 






111234 


004457 


070656 








JSR 


R4.PREG14 






111240 


OOSISO 










.UORO 


BINHEX ANCHOR 




6762 


111242 






PRINTS 


•TSTMS4.0ARGTY7,«STRBUF.«ARGTr6.«STRBUl s ASSIST ^400E • 






111242 


012746 


002346 










MOV ftSTRBUl. 


(SP) 




111246 


012746 


061747 










MOV •ARGTr6. 


(SP) 




111252 


012746 


002324 










MOV ffSTRBUf^ . 


(SP) 




111256 


012746 


061757 










MOV •ARGTr7. 


(SP) 




111262 


012746 


060770 










MOV •TSTMS4. 


-(SP) 




111266 


012746 


000005 










MOV OS. (SP) 






111272 


010600 












MOV SP.RO 






111274 


104414 












TRAP C*PNTB 






111276 


062706 


000014 










AOO tfM.SP 




6765 


111302 






CALL 


RUNCOM 


t 


00 RECIEVE LOOP 








111302 


004437 


070656 








JSR 


R4.PREG14 






111306 


021104 










.UQRD 


RUNCOH ANCHOR 




6764 


111310 






PIPOP 


R3 


• 


CHECK RESULTS 








111310 


014505 










MOV 


-(R5).R3 




6765 


111312 


001405 




BEQ 




• 


IF QK, CONT. 






6766 


111314 






ERRHRO 


28.EMSG40.ERR3 












111314 


104456 












TRAP C*ERHRO 






111316 


000034 












.UORO 28 






111320 


064561 












.UORO EMSG40 






111322 


070452 












.UORO ERR3 




6767 


111324 


000410 




BR 


101* 










6768 


111326 






25< : PRINTB 


•OKRE 












111326 


012746 


061046 










MOV •OKRE. (SP) 




111332 


012746 


000001 










MOV #1. CSP) 






111336 


010600 












MOV SP.RO 






111340 


104414 












TRAP C*PNTB 






111342 


062706 


000004 










AOO »4 . SP 




6769 


111346 






101 <: CALL 


BLOAST R1.R2 


i 


BUILC RECEIVE ASSIST 


MESSAGE 






111346 


010225 








MOV 


R2.(R5). 






111350 


010125 










MOV 


Rl.(R5)» 






111352 


004437 


070656 








JSR 


R4.PREG14 






111356 


006030 










.UORO 


BLOAST ANCHOR 




6770 


111360 






CALL 


XMIT 


1 


TRANSMIT MESSAGE 








111360 


004457 


070656 








JSR 


R4,PREG14 






111364 


002526 










.UORO 


XMIT ANCHOR 




6771 


111366 






PIPOP 


R4 


t 


CHECK RESULTS 








111366 


014504 










MOV 


-(R5).R4 




6772 


111570 


001276 




BNE 


21* 


i 


IF OK CONTINUE. ELSE 


REPORT ERROR 




6773 


111372 






CALL 


BINHEX Rl.«6.«STRBLr 


1 


PRINT ERROR MESSAGE 
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SEQ 164 





111 


Ule 'c9 


Wcdc4 






111 X7& 


Ulc 'C3 


AAAAA6 






111 


A1 A1 
UlUlcS 








111 AAA 


AAAA V7 


U r U030 






1 1 1 A f A 






CALL 


&77A 


1 1 1 A 1 o 








1 1141c 


A1 373'i 
vie f c3 


UUC040 






111410 


A1 373S 
Ule 14:0 








111 

1 1 14CC 


Ai AOOt 
vlUcc3 








1 1 1 A OA 
1 1 l*c4 


AAAA V7 
W440 / 


U r U030 






1 1 l^OV 


OASI KA 






O * ' 3 


1114 oc 






PRINTS 




111 

1 1 14dc 


A1 9746 

VIC f 4v 


WC J*»v 






111 AXA 
1114JO 


A1 97dr 
VIC r**^ 


061 74 7 

Vvl 1 ^ f 






1 1 144c 


A1 ?7A6 
Ulc f 40 


WC JC^ 






111 AAf^ 
1 1 14*0 


A1 97A6 

VIC f 


061 757 






1 1 143c 


VIC 


060770 






1 1 1430 


A1 97A6 

U IC ' 40 


WVW J 






111462 


010600 








111 A4sA 












WwC f Vv 


WW i~ 




6776 


111472 






CALL 




111472 


0044S7 


070656 






111476 


021104 






6777 


111500 

111 ^UV) 
1 119W 


V143VO 




PIPOP 


O f f o 


111 

1 1 13Uc 


A01 

W14UJ 






#t77Q 


111 ^/\A 
1 1 13V>4 

111 ^AA 
1 1 13V4 

111 ^/Vt 

I I l^^^D 

I I I SI n 

1 1 LjLS/ 
1 1 191c 


1 nAAS6 

WW J** 

A6A669 
V^4DOc 

U f V40c 




ERRHRD 


V r OV 


1 11314 


AAAAI A 




BR 


6781 


111516 






25$: PRINTS 




111516 


012746 


061112 






111 




AAAAA1 
UUUUUl 






111 

111 3Cw 


VI vow 








111 ^XA 

1 1 l^OV 


IV^^l^ 








111 SXP 
1 1 l^wc 


VOC f vo 


AAAAAA 




<^7A9 


111 

1 1 13 JO 

111 <^tt 

1 1 l^OO 

111540 


V IV/cc^ 

010125 




1 A9< • TAI 1 
IVC * • U nivU 




111 

1 1 174c 


W4HO f 


U f U030 






111 

1 1 IT^O 


AAS^7 








111 SSO 










111 SSO 

1 1 U 


W4^0 # 


n706S6 






1 1 1374 


009X96 






6784 


X 1 U 
1 1 U 


VI** 3V** 




PtPOP 




1 1 Uvw 


OA1 AO? 






6786 


111562 


0001S7 


111166 


JMP 


6787 


111566 






26 »: CALL 




111566 


012725 


002324 






111572 


012725 


000006 






111576 


010125 








111600 


004437 


070656 






111604 


005150 







BINHEX R2.«6,«STRBU1 



MOV ♦STR8UF.(R5). 

MOV 06. (R5). 

MOV R1.(R5)» 

JSR R4.PRfcG14 

.WORD BINHEX -ANCHOR 



MOV 
MOV 
MOV 
JSR 
.WORD 



0TSTMS4 . *ARGT Y 7 . OSTRBUF . «ARGT Y6 . OSTRBUl s 



RUNCOM 



R3 



25 1 

28.EMSG41.ERR3 



102$ 
•OKTR 



BLOFAS R1.R2 



; DO RECEIVE LOOP 

ISR 
.WORD 

: GET RESULTS 

MOV 

: IF OK. CONT. 



*STRBU1.(R5). 
06.(R5i. 
R2.(R51. 
R4.PREG14 
BINHEX -ANCHOR 
ASSIST NODE - 

MOV ♦STRBUl. (SP) 

MOV •ARGTY6. (SP) 

MOV OSTRBUF. -(SP) 

MOV OARGTy?. 
MOV 0TSTMS4. 
MOV ♦5.-(SP) 
MOV SP.RO 
TRAP CtPNTB 
AOO «14.SP 



(SP) 
(SP) 



R4.PREG14 
RtJNCOM -ANCHOR 

(R5).R3 



TRAP 
.UORD 
.UORD 
.WORD 



CtERHRD 

28 

EMSG41 
ERR3 



XMIT 



R4 

26$ 
21$ 

BINHEX 



Rl.#6,*STRBUF 



i BOILD FULL ASSIST 
MOV 
MOV 
JSR 
.WORD 

i TRANSMIT MESSAGE 
JSR 
.WORD 

s CHECK RESULTS 

MOV 

J IF OK CONTINUE. ELSE 

i PRINT ERROR MESSAGE 
MOV 
MOV 
MOV 
JSR 
.UORD 



MOV 
MOV 
MOV 
TRAP 
AOP 
MESSAGE 

R2.(R5)' 
R1.(R5)» 
R4.PREG14 
BLOF AS -ANCHOR 



*OKTR. (SP) 
*l. -(SP) 
SP.RO 
C»PNT8 
»4.SP 



R4.PREG14 
XMIT -ANCHOR 

-(R5).R4 
REPORT ERROR 



*STR8UF.(RS). 
♦6.(R5). 
R1.(R5)» 
R4.PREG14 
BINHEX ANCHOR 



J13 
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6788 


111606 












111606 


012725 


002346 








111612 


012725 


000006 








111616 


010225 










111620 


004437 


070656 








111624 


005150 








6789 


111626 








DD TklTQ 




111626 


012746 


002346 








111652 


012746 


061747 








111636 


012746 


002324 








111642 


012746 


061757 








111646 


012746 


060770 








111652 


012746 


000005 








111656 


010600 










111660 


104414 










111662 


062706 








6790 


111666 








mi 1 




111666 


004437 


07069O 








111672 


A^4 4 A^ 

021104 






D tono 


6791 


111674 










111674 


014503 








6792 


111676 


001405 








6793 


111700 








tHKHKU 




111700 


4 A^ M C£ 

104456 










111702 


AAAA Vii 

000034 










111704 


064764 










111706 


070432 








6794 


111710 


000410 






BR 


6795 


111712 






OO A . 






111712 


012746 


061157 








111716 


012746 


A AAA A 4 

000001 








111722 


010600 










111724 


104414 










111726 


062706 


A AAA A 

000004 






6796 


111.732 


005337 


050326 


4 A V * 

lOSi : 




6797 


111736 


001402 






OCA 


6796 


111740 


000137 


111142 






6799 


111744 






29» : 


CALL 




111744 


010225 










111 746 


010125 










III 750 


A 4 ^ 

012725 


AAAAA*^ 

000002 








111754 


AAA A V ^ 

004437 


A^A^ 

070656 








111760 


007176 








£ AAA 


111762 


062702 


A A A A 4 A 

000010 




ADD 


£ aA 1 

0601 


111766 


A4 A'% V ^ 

010237 


002410 




nuv 




111772 


AAA4 V ^ 

000137 


4 4 A^^il 

110774 




JTTP 




4 4 4 

111776 






501 : 


DC Tl iDkl 




111776 


AAA*kA^ 

000207 








6604 


4 4 ^A/\A 
112000 


AACW T 

005737 


050274 


KUNLUn ; 


TC T 














6806 


112006 


012704 


003762 




MOV 


6807 


112012 


012714 


000012 




MOV 


6606 


112016 






10$: 


BREAK 




112016 


104422 








6809 


112020 


005714 






TST 


6810 


112022 


001517 






BEQ 


6811 


112024 








CALL 
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BINHEX R2.«6.«STRBUI 



SEQ 165 



♦ TSTMS4 , #ARGT Y 7 , OSTRBUF , •ARGT Y6 . OSTRBUl 



MOV OSTRBUl. (R5). 

MOV 06 . ( R5 ) . 

MOV R2.(R5). 
JSR R4.PREG14 
.UORO BINHEX -ANCHOR 
J ASSIST NODE 

MOV 

MOV 



(SP ) 



RUNCOM 



R3 



26 1 

28.EMSG42.ERR5 



105$ 
♦OKFU 



CPYCNT 

29$ 

20$ 

WRITES «2.R1.R2 



DO RECEIVE LOOP 

JSR 
.WORD 

CHE.K RESULTS 

MOV 

IF NO ERRORS, CONT 



OSTRBUl, (SP) 
•ARGTY6. (SP) 
MOV OSTRBUF. (SP ) 

MOV 0ARGTY7. (SP) 

MOV ♦TSTMS4. 
MOV 05. (SP) 

MOV SP.RO 
TRAP C$PNTB 
ADD 014.SP 

R4.PREG14 
RUNCOM - ANCHOR 



(R5).R3 



TRAP 
.WORD 
.WORD 
.WORD 



MOV 

MOV 

MOV 

TRAP 

ADO 

DECREMENT 'COPIES COUNTER 
IF MORE TO DO. LOOP 



C$ERHRO 
28 

EMSG42 
ERR 3 



OOKFU. (SP) 
01. -(SP) 
SP.RO 
C»PNTB 
♦4.SP 



010, R2 

R2.SL0T 

10$ 



RETRrS 
50$ 

♦TIMERS, R4 
«10. .(R4) 



(R4) 
40$ 

RECEVE 



ELSE. UPDATE SUMMARY 
MOV 
MOV 
MOV 
JSR 
.WORD 



TABLE 

R2.(R5). 
R1.(R5)» 
02.(R5)» 
R4.PREG14 
WRITES -ANCHOR 



RTS PC 

; SEE IF FAILED DUE TO EXCESSIVE COLLISIONS 

; IF YES. BR. ELSE C(»<T. 

J SET UP FOR 10 SECOND TIMOUT 



TRAP 

J SEE IF TIME HAS EXPIRED 
: IF YES. BRANCH 
! CHECK FOR ANSWER 



C$BRK 
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112024 


004437 


070656 










112030 


003044 










6812 


112032 










PIPOP 




112032 


014501 










6813 


112034 


001770 








BEQ 


6814 


112036 


063737 


050324 


050042 




ADO 


6815 


112044 


005237 


050030 






INC 


6816 


112050 


013703 


024226 






MOV 


6817 


112054 


116301 


000012 






MOVB 


6818 


112060 


116302 


000011 






MOVB 


6819 


112064 


042701 


177400 






BIC 


6820 


112070 


042702 


000370 






BIC 


6821 


112074 


000302 








SUAB 


6822 


112076 


050201 








BIS 


6823 


112100 


062701 


000074 






ADO 


6824 


112104 


020137 


050332 






CMP 


6825 


112110 


001423 








BEQ 


6826 


112112 


005237 


050034 






INC 


6827 


112116 


012737 


061506 


002314 




MOV 


6828 


112124 


012702 


177777 






MOV 


6629 


112130 










PR INT X 




112130 


010146 












112132 


013746 


050332 










112136 


012746 


067745 










112142 


012746 


000003 










112146 


010600 












112150 


104415 












112152 


062706 


000010 








6830 


112156 


000452 








BR 


6831 


112160 


016303 


000004 




20(: 


MOV 


6832 


112164 


066303 


000016 






AOO 


6833 


112170 


062703 


000030 






ADD 


6634 


112174 


063737 


002374 


050040 




AOO 


6835 


112202 










CALL 




112202 


010325 












112204 


013725 


050334 










112210 


013725 


002374 










112214 


004437 


070656 










112220 


007040 










6836 


112222 










P$POP 




112222 


014503 










6837 


112224 


001426 








BEQ 


6838 


112226 


060337 


050036 






ADD 


6839 


112232 


012737 


061515 


002314 




MOV 


6840 


112240 


012702 


177777 






MOV 


6841 


112244 


000417 








BR 


6842 














6643 


112246 


012737 


061462 


002314 


30t: 


MOV 


6844 


112254 


012702 


177777 






MOV 


6845 


112260 


000411 








BR 


6646 














6647 


112262 


005237 


050032 




40$: 


INC 


6648 


112266 


012737 


061446 


002314 




MOV 


6849 


112274 


012702 


177777 






MOV 


6850 


112300 


000412 








BR 


6651 


112302 








501: 




6652 


112302 


005002 








CLR 



Rl 
10$ 

XFER.S.xrER 

S.REC 

RRGNXT.R3 

STAT2(R3).R1 

STAT1»1CR3).R2 

♦1 77400. Rl 

♦370.R2 

R2 

R2.R1 
«60. ,R1 
Rl.BUFLEN 
201 
S.LEN 

«LENGTH,KEYU02 
«-l.R2 

«LGERMS.8UFLEN.R1 



60 » 

L0AO0(R3).R3 

16(R3).R3 

«30.R3 

PISIZE.S.BYTE 

OATCMP PISIZE.CMPBUF.R 



R3 
50$ 

R3.S.C0MP 

*C0MPAR.KETUD2 

♦-1.R2 

60) 

«RETRY.KEYWD2 

•-1.R2 

60$ 

S.NREC 

ON0RESP.KEYUD2 

0-1. R2 

65$ 

R2 



SEQ 166 



JSR R4.PREG14 
. WORD RECE VE • ANCHOR 
R2 HOLDS NO. OF BUFFERS RECEIVED 

MOV -(R5).R1 
IF NO BUFFERS RECEIVED. LOOP 

UPDATE BYTES TRANSFERED SUM. COUNTER 

UPDATE PACKETS RECEIVED SUM. COUNTER 

GET RECEIVE RING POINTER 

GET RCV BYTE COUNT BITS 0 7 

GET RCV BYTE COUNT BITS 8-10 

CLEAR ALL UNWANTED BITS 

CLEAR ALL UNWANTED BITS 

PUT 8-10 INTO HIGH BYTE 

MAKE BYTE COUNT COMPLETE 

ADD BYTES LOST WHILE COMPARING ADDRESSES 

CHECK FOR LENGTH ERROR 
IF OK. BR 

ELSE. UPDATE LENGTH ERRORS COUNTER 

MOVE 'LENGTH' TO ERROR INDICATOR 

INDICATE ERROR TO R2 

PRINT LENGTH ERROR MESSAGE 

MOV Rl.-fSP) 
MOV BUFLEN. (SP) 
MOV OLGERMS. -(SP) 

MOV #3. ISP) 

MOV SP.RO 
TRAP C$PNTX 
ADD «10.SP 

AND EXIT 
POINT R3 TO MESSAGE BUFFER 
POINT R3 TO DATA AFTER SKIP COUNT 
POINT R3 TO FIRST DATA BYTE 
UPDATE BYTES COMPARED SUMMARY COUNTER 
CHECK FOR DATA COMPARE ERRORS 

MOV R3.(R5). 

MOV CMPBUF.(R5). 

MOV P$SIZE.CR5). 

JSR R4.PREG14 

.WORD DATCMP ANCHOR 

CHECK RESULTS 

MOV -(R5).R3 
BRANCH IF NO ERRORS 

UPDATE COMPARE ERRORS SUMMARY COUNTER 
MOVE 'COMPARE' TO ERROR INDICATOR 
INDICATE ERROR TO R2 



J MOVE 'EXCESSIVE COLLISIONS' TO ERROR INCICATOR 
i INDICATE ERROR IN R2 



UPDATE MESSAGES NOT RECEIVED COUNTER 
MOVE NO RESPONCE' TO ERROR INDICATOR 
INDICATE ERROR TO R2 
LEAVE 



i INDICATE SUCCESS 



L13 
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685S 
6S54 
66SS 



6656 
6857 



6656 
6659 
6860 
6661 
6862 
666S 
6664 
6865 
6866 
6667 

6866 
6669 



6670 

6671 
6672 
6873 
6674 
6675 
6676 
6877 

6678 

6879 
6660 
6681 
6862 
6665 
6664 
6665 
6666 
6887 



6866 



112504 
112504 
112510 
112510 
112514 
112520 
112524 
112526 
112526 
112526 
112550 



112552 
112540 



112542 
112342 
112546 
112552 
112552 
112556 
112560 
112360 
112562 
112564 
112570 
112572 
112576 
112404 
112406 
112406 
112412 
112412 



112414 
112420 
112422 
112426 
1124'>6 
112452 
112456 
112440 
112442 
112446 
112446 
112452 
112456 
112460 



015705 024226 



60$; 



012725 
012725 
004457 
006450 



010225 
000207 



012757 
000207 



015725 
005057 

004457 

017572 

014501 
001405 
022701 
001406 
005257 
022757 
002562 



015701 
006501 
062701 

012746 
012746 
010600 
104417 
062706 

015746 
015746 
011146 
012746 



024226 
000001 
070656 
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MOV RRGNXT.R3 

CALL GETRNX »1.«RRGNXT 



65$: 



SEQ 167 



I GET DESCRIPTOR 

I UPDATE POINTER. VALIDATE PREVIOUS DESCRIPTOR 
MOV ORRGNXT.CRS). 
MOV »l.fR5). 
JSR R4,PREG14 
.WORD GETRNX ANCHOR 



RETURN R2 



I RETURN 



MOV R2,CR5). 
RTS PC 



ACTION ROUTINE TO SET 'RUN PATTERN' FLAG 



000005 002512 ACTPAT : 



MOV tfCPATRN.KEYUDl 
RTS PC 



002572 
002572 

070656 



000001 



RUNPAT: P$PUSH P$TYPE 



10$: 



CLR 
CALL 



PITYPE 
DIRCOM 



P$POP Rl 



002572 

000005 002372 



014557 002572 
000207 



201; 
50$: 



BEQ 
CMP 
BEQ 
INC 
CMP 
BGE 
PIPOP 

RETURN 



20$ 

*1.R1 

30$ 

P$TYPE 

•5.P$TYPE 

10$ 

P$TYPE 



;SET FLAG 



SAVE TYPE PARAMETER 

MOV P$TYPE.(R5)* 
SET TYPE TO FIRST TYPE 
SEND MESSAGES 

JSR R4.PREG14 
.WORD DIRCOM ANCHOR 
GET RESULTS TO KEEP STACK IN ORDER 
MOV (fl5).Rl 

IF OK. CONT 

ELSE. WAS TABLE EMPTY 

IF YES. RETURN 
SET TO NEXT TYPE 
SEE IF DONE ALL OF THEM 

IF NOT. DO MORE 
RESTORE MESSAGE TYPE 

MOV (R5).P$TyPE 



RTS 



PC 



{ACTION ROUTINE TO SHOW THE CURRENT MESSAGE PARAMETERS 



002372 

003524 

054545 
000001 

000004 

002576 
002574 

055002 



ACTSMS: 



MOV 
ASL 
ADD 

PRINTF 



P$TYPE.R1 
Rl 

«MSGTAB,R1 
«MSGPRM 



PRINTF «MSG4.(R1),P»SIZE.P$CPYS 



GET MESSAGE TYPE INTO Rl 

MULTIPLY BY 2 

ADD MESSAGE TABLE OFFSET 

PRINT MESSAGE PARAMETER MESSAGE 

MOV 
MOV 
MOV 
TRAP 
ADD 

(PRINT PARAMETERS 

MOV 
MOV 
MOV 
MOV 



(SPl 



•MSGPRM. 
♦ 1. (SP) 
SP.RO 
C»PNTF 
•4.SP 



P$CP>S. -CSP'* 
P$SIZE.-(SP) 
(Rl).-(SP) 
4MSG4. (SP^ 



M13 



6889 
6890 
6891 
6892 
689S 
6894 
6895 
6896 
6897 
6898 
6899 
6900 



6901 



112464 
1124 70 
1124 72 
112474 
112500 
112504 



6902 
6903 
6904 
6905 
6906 
6907 
6908 
6909 
6910 
6911 



6912 
6913 
6914 
6915 
6916 
6917 
6918 
6919 



6920 



112506 
112514 
112522 
112530 
112530 
112534 
112540 
112542 
112544 
112550 
112550 
112554 
112560 
112564 
112570 
112574 
112576 
112600 
112604 
112610 



012746 000004 

010600 

104417 

062706 000012 
105037 003220 
000207 



112612 
112612 
112612 
112614 
112616 
112620 
112624 
112630 
112634 
112634 
112636 
112640 
112642 
112642 
112644 
112646 
112650 
112650 
112654 



MOV 
MOV 
TRAP 
ADD 



SEQ 168 



•4. tSP) 
SP.RO 
CJPNTF 
•12. SP 



CLRB 
RTS 



PINNUF 
PC 



012737 
012737 
012737 

012746 
012746 
010600 
104417 
062706 

013746 
013746 
013746 
012746 
012746 
010600 
104417 
062706 
105037 
000207 



010325 
010225 
010125 
012701 
012702 
016103 

112122 
005303 
001375 

014501 
014502 
014503 

012725 
012725 



ACTION ROUTINE TC Cl?AR THE CURRENT 
RESET THEM TO THt OtFAULT VALUE 



000000 002372 
001000 002374 

000001 002376 

053432 
000001 



000004 

002376 
002374 
003324 
055002 
000004 



ACTCMS: 



MOV 
MOV 
MOV 

PRINTF 



«ALPHA.P$TYPE 
«512..P»SIZE 
'♦l.P»Cr»YS 
*ClRMSG 



PRINTr ♦MSG4.MSGTA8.P»SIZE.P»CPYS 



000012 
003220 



CLRB 
RTS 



PINNUF 
PC 



MESSAGE PARAMETERS AND 



J RESET TYPE 
(RESET SIZE 
: RESET COPIES 

; PRINT MESSAGE PARAMETERS RESET MESSAGE 

MOV <K:lRMSG. (SPl 

MOV 91. (SP) 

MOV SP.RO 

TRAP C»PNTF 

ADD ^4 . SP 
s PRINT PARAMETERS 

MOV P$CPTS.-(SP) 

MOV P$SIZE.-(SP) 

MOV MSGTA8.-(SP) 

MOV •MSG4 . - ( SP ) 

MOV «4.-(SP) 

MOV SP.RO 

TRAP CSPNTF 

ADD 012.SP 

: CLEAR NOTNUF FLAG 



ACTION ROUTINE TO SET SHOW COUNTERS FLAG 



ACTCNTs 



050144 
050044 
000000 



10»: 



PiPUSH R1.R2.R3 



MOV KNTRS.Rl 

MOV 0UCB12.R2 

MOV C.SIZ(R1).R3 

MOVB (R1)».CR2)* 

DEC R3 

BNE 10 » 

PtPOP R1.R2.RS 



CALl 



BINMEX «PMYADR.06.#STRB\.IF 



002324 
000006 



i SAVE REGISTERS 

MOV R3 (R5)» 
MOV R2.(R5)» 
MOV Rl.(R5)* 

: GET AORESS OF COUNTERS 

I GET ADDRESS OF COUNTER BUFFER 

t GET SIZE OF BUFFER 

t MOV COUNTERS TO BUFFER 
, SUBTRACT ONE FROM THE COUNT 
: BRANCH UNTIL ALL ARE DONE 
t RESTORE THE REGISTERS 
MOV -CR5).R1 
MOV -(R5).R2 
MOV -(R5).R3 
;GET ADDRESS INTO ASCII 

MOV 0STRBUF,(R5)^ 
MOV •6.(R5)« 



112660 
112664 
112670 

6921 112672 
112672 
112676 
112702 
112706 
112710 
112712 

6922 112716 
112716 
112722 
112726 
112732 
112/34 
112736 

6923 112742 
112742 
112746 
112752 

6924 112754 
112754 
112760 
112764 
112770 
112772 
112774 

6925 113000 
113000 
113004 
113010 

6926 113012 
113012 
113016 
113022 
113026 
113030 
113032 

6927 113036 
113036 
113042 
113046 
113052 
113054 
113056 

6928 113062 
113062 
113066 
113072 
113076 
113100 
113102 

6929 113106 
113106 
113112 
113116 



012725 004010 

004437 070656 
005150 

012746 002324 

012746 062047 

012746 000002 
010600 
104417 

062706 000006 

013746 050046 

012746 062127 

012746 000002 
010600 
104417 

062706 000006 

012725 050050 

004437 070656 
007446 

012746 100526 

012746 062176 

012746 000002 
010600 
104417 

062706 000006 

012725 050054 

004437 070656 
007446 

012746 100526 

012746 062232 

012746 000002 
010600 
104417 

062706 000006 

013746 050060 

012746 062277 

012746 000002 
010600 
104417 

062706 000006 

013746 050062 

012746 062354 

012746 000002 
010600 
104417 

062706 000006 

012725 050064 

004437 070656 
007446 



ni200 22-MAR 84 
PRINTF 

PRINTF 

CALL 
PRINTF 

CALL 
PRINTF 

PRINTF 

PRINTF 

CALL 



N13 

13:12 PAGE 52-26 
«CNTR00.«STRBUF 

«CNTR01.UCB12»2 

BINOEC «VX:B12»4 
•CNTR02.*OECSTR 

BINOEC <HJCB12»10 
«CNTROS.«OECSTR 

«CNTR04.UCB12»14 

«CNTR0j.UCB12»16 

BINOEC «VX:B12*20 



SEQ 169 



MOV 


*PHYADR 


.(R5)» 




JSR 


R4,PREG14 




.WORD 


BINHEX- 


ANCHOR 






MOV 


•STRBUF . - 


CSP) 




MOV 


^NTROO, - 


(SP) 




MQV 


92, -(SP) 






MOV 


SP.RO 






TRAP 


C»PNTF 






ADO 


•6.SP 






MOV 


UCB12»2. - 


(SP) 




MOV 


^NTROl . 


(SP) 




MOV 


•2.-(SP) 






MOV 


SP.RO 






TRAP 


C«PNTF 






ADD 


•6.SP 




MOV 


#vx:bi2. 


►4,(R5). 




JSR 


R4.PREG14 




. UOnO 


BINOEC- 


-ANCHOR 






MOV 


•DECSTR. 


(SP) 




MOV 


•CNTR02. 


-(SP) 




MOV 


•2.-(SP) 






MOV 


SP.RO 






TRAP 


CIPNTF 






ADO 


♦6.SP 




MOV 


«CICB12 


►10.CR5)* 




JSR 


R4.PREG14 




.WORD 


BINOEC 


-ANCHOR 






MOV 


♦DECSTR. 


-(SP) 




MOV 


•CNTR03. 


-(SP) 




MOV 


♦2.-(SP) 






MOV 


SP.RO 






TRAP 


C»PNTF 






ADD 


•6.SP 






MOV 


UCB12»14.-(SP) 




MOV 


«CNTR04 . 


-(SP) 




MOV 


♦2.-(SP) 






MOV 


SP.RO 






TRAP 


C«PNTF 






ADO 


•6.SP 






MOV 


UCB12»16. -CSP) 




MOV 


♦CNTR05. 


(SP) 




MOV 


92. (SP) 






MOV 


SP.RO 






TRAP 


C»PNTF 






ADD 


•6.SP 




MOV 


*UCB12*20.(R5:. 




JSR 


R4.PREG14 




.WORD 


BINDEC 


-ANCHOR 





CVNIAAO DEQM NI EXERCISER DIAG MACRO 11 
CLI ACTION TABCE WO ROUTINES 



6951 



o<»52 



69SS 



6954 



6955 



6956 



6957 



6958 



6959 



L15120 
L15120 
L15124 
L15150 
L15154 
L15156 
L15140 
L15144 
115144 
L15150 
L15154 
115156 
L15156 
115162 
L15166 
L15172 
L15174 
L15176 
115202 
LI 5202 
115206 
115212 
L15216 
LI 5220 
LI 5222 
LI 5226 
LI 5226 
L 15252 
LI 5256 
LI 5242 
LI 5244 
LI 5246 
LI 5252 
LI 5252 
LI 5256 
LI 5262 
L15264 
L 15264 
L 15270 
L 15274 
L15500 
LI 5502 
LI 5504 
L15510 
L15510 
L15514 
L15S20 
LI 5522 
LI 5522 
LI 5526 
LI 5552 
L15556 
L15540 
LI 5542 
LI 5546 
L15546 
LI 5552 



012746 
012746 
012746 
010600 
104417 
062706 

012725 
004457 
007446 

012746 
012746 
012746 
010600 
104417 
062706 

015746 
012746 
012746 
010600 
104417 
062706 

015746 
012746 
012746 
010600 
104417 
062706 

012725 
004457 
007446 

012746 
012746 
012746 
010600 
104417 
062706 

012725 
004457 
007446 

012746 
012746 
012746 
010600 
104417 
062706 

012725 
004457 



100526 
062424 
000002 



000006 

050070 
070656 



100526 
062465 
000002 



000006 

050074 
062555 
000002 



000006 

050076 
062606 
000002 



000006 

050100 
070656 



100526 
062657 
000002 



000006 

050104 
070656 



100526 
062/16 
000002 



000006 

050110 
070656 



Bi4 
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PRINTF •CNTR06.«0ECSTR 

CALL BINOEC «UCB12>24 
PRINTF «CNTR07.*0ECSTR 

PRINTS 4»CNTROS.UCB12*50 

PRINTF ♦CNTR09.UCB1^►5^ 

CALL BINOEC «UCB12>54 
PRINTF •CNTRIO.^OFCSTR 

CALL BINOEC «UCB12>40 
PRINTF «CNTR11.»0ECSTR 

CALL BINOEC •UCB1?.44 



SEQ WO 





nuv 




f CO \ 




liOV 


•CNTR06. • 


t CD ^ 
I at* 1 




MOV 


•2, (SP) 






MOV 


SP.RO 






TRAP 


CIPNTF 






ADO 


•6.SP 






•UCB12> 


24.(R5)« 






R4,PREG14 




.WORD 




ANCHOR 






MOW 


•OECSTR. - 






MDV 


•CNTR07. - 






MOW 


•2. (SP) 






MOV 


SP.RO 






TRAP 


CIPNTF 






ADO 


•6.SP 






MOV 


UCB12*50, 


(SP) 




MOV 


•CNTROe. 


(SP) 




MOV 


•2. CSP) 






MOV 


SP.RO 






TRAP 


C»PNTF 






ADD 


•6.SP 






MOV 


UCB12-52. fSP) 




MOV 


#CNTR09. 


(SP) 




MOV 


•2. (SP) 






MOV 


SP.RO 






TRAP 


CiPNTF 






AOO 


•6,SP 






«UCB12 


.54.(R5). 






R4.PREG14 




.WORD 


BI^<}£C 


ANCHOR 






MOV 


•OECSTR. 


(SP) 




MOV 


•CNTRIO. 


(<;pi 




MOV 


•2. (SP) 






MOV 


SP.RO 






TRAP 


CtPNTF 






ADD 


•6.SP 






•OCB12 


.40. (R5). 






R4.PREG14 




.WORD 


BINOEC 


•ANCHOR 






MOV 


•OECSTR. 


(SP> 




HOV 


•CNTRll. 


vSP> 




NOV 


♦2. (SP) 






MOV 


SP.RO 






TRAP 


CIPNTF 






AOO 


•6,SP 




NOV 


•0CB12»44.iR5>. 




JSR 


R4.PREG14 





11SS56 
11SS60 
11SS60 
11SS64 
113370 
113374 
113376 
113400 
113404 
113404 
113410 
113414 
113416 
113416 
113422 
113426 
113432 
113434 
113436 
113442 
113442 
113446 
113452 
113454 
113454 
113460 
113464 
113470 
113472 
113474 
113500 
113500 
113504 
113510 
113512 
113512 
113516 
113522 
113526 
113530 
113552 
113536 
113536 
113542 
113546 
113550 
113550 
113554 
113560 
113564 
113566 
113570 
113574 
113574 
113600 
113604 
113610 



007446 

012746 
012746 
012746 
010600 
104417 
062706 

012725 
004437 
007446 

012746 
012746 
012746 
010600 
104417 
062706 

012725 
004437 
007446 

012746 
012746 
012746 
010600 
104417 
062706 

012725 
004437 
007446 

012746 
012746 
012746 
010600 
104417 
062706 

012725 
004437 
007446 

012746 
012746 
012746 
010600 
104417 
062706 

013746 
012746 
012746 
010600 



100526 
062766 
000002 



000006 

050114 
070656 



100526 
063034 

000002 



000006 

050120 
070656 



100526 
063101 
000002 



000006 

050124 
070656 



100526 
063135 
000002 



000006 

050130 
070656 



100526 
063177 
000002 



000006 

050134 
063245 

000002 



C14 
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PRINrr «CNTR12.«0ECSTR 

CALL BINOEC •UCB12*50 
PRINTF 9CNTR13.«0ECSTR 

CALL BINOEC «UCB12*54 
PRINTF *CNTR14.»0ECSTR 

CALL BINOEC •UCB12*60 
PRINTF •CNTR15.«0ECSTR 

CALL BINOEC «UCB12>64 
PRINTF •CNrR16.«0£CSTR 

PRINTF •CNTR17,OCB12«70 



.WORD BINDEC ANCHOR 

MOW #OECSTR. fSP) 

MOV #CNTR12, .(SP) 

MOV W.CSP) 

MOV SP.RO 

TRAP C»PNTF 

ADO •6.SP 

MOV #00812 •50. (R5)» 
JSR R4.PREG14 
.UORD BINOEC ANCHOR 

MOV •OECSTR. -CSP) 

MOV KNTRIS. -(SP) 

MOV #2. (SP) 

MOV SP.RO 

TRAP C»PNTF 

AOO •6.SP 

MOV •UCB12.54,(R5)» 
JSR R4.PREG14 
.UORD BINOEC -ANCK)R 

MOV •OECSTR. (SP) 

MOV #CNTR14, (SP) 

MOV #2. (SP) 

MOV SP.RO 

TRAP CIPNTF 

ADO 96. SP 

MOv •UCB12*60.(R5)> 
JSR R4.PREG14 
.WORD BINOEC -ANCHOR 

MOV •OECSTR. (SP) 

MOV •CNTR15. -(SP1 

MOV 92. (SP^ 

MOV SP.RO 

TRAP C»PNTF 

AOO 46. SP 

MOV •UCB12.64.(R5). 
JSR R4.PREG14 
.UORD BII«EC ANCHOR 

MOV •OECSTR. IbP) 

MOV •CNTR16. t.SP') 

MOV •2. (SP) 

MOV SP.RO 

TRAP CtPNTF 

ADO 96. SP 

MOV UCB12.'0. l-«P^ 

MOV •CNTR17. vSP"* 

MOV 92, aSP) 

MOV iP.RO 



D14 







104417 












TRAP 


r iPMTr 








wc » w 


000006 










ADD 








4 4 i^wC V 










PRINTF 


^NTR18.UCB12» 72 










113620 


013746 


050156 










MOV 


v\«IJ 4C * ' C • 






113624 


012746 


065520 










nov 




C SP 5 




113630 


012746 

V 4C ' ^ w 


000002 










MOV 


•2 - f SP ) 






113634 


010600 

V 4 WWW 












MOW 








113636 


104417 












TRAP 


CtPNTF 






113640 


062706 


000006 










ADD 


SP 






113644 










PRINTF 


•CNTR 19. UCB 12 * 74 










113644 


013746 


050140 










MQV 


IJf RIP > 74 






113650 


012746 


065365 










MQv 


w^r^ 1 ' 4 ' • 






113654 


012746 


000002 










MOV 


•2 . ( SF ) 






113660 


010600 












MOV 


sp!ro 






113662 


104417 












TRAP 


CtPNTF 






113664 


062706 


000006 










ADO 


•6. SP 




6952 


113670 


105037 


005220 






CLRB 


PtNNUF 








6953 


113674 


000207 








RTS 


PC 








6954 






















6955 






















6956 






















6957 










1 ACT ION 


ROUTINE 


TO PRINT OUT THE NODE 


TABLE 






6958 










1 












6959 






















6960 


113676 


105037 


003220 




ACrSNO: 


CLRB 


PINNUF 








6961 


113702 


012757 


002412 


002410 




nov 


•NOOTBL .SLOT 


IMOVE NODE TABLE ADDRESS INTO ' 


SLOT 




6962 


113710 










CALL 


FULSLT 


;SEE IF TABLE EMPTY 








113710 


004457 


070656 










JSR R4.PREG14 






113714 


025556 












.WORD FULSLT 


■ANCHOR 




6963 


113716 


022757 


177777 


002410 




CMP 


• l.SLQT 


iIF tES, DON'T PRINT HEADER 






6964 


113724 


001457 








BEQ 


20 » 








6965 


113726 










PRINTr 


•NTBHOR 


(PRINT NODE TABLE HEADER 








113726 


012746 


055176 










MOV 


•NTBHOR . 


•C SP 1 




113732 


012746 


000001 










MQV 


#1. CSP) 






113736 


010600 












MOV 


SP.RO 






113740 


104417 












TRAP 


CIPNTF 






113742 


062706 


000004 










ADO 


•4.SP 




6966 


113746 
113746 


004437 


070656 




lOt ; 


CALL 


FULSLT 


(FIND LOCATION IN TABLE UITH AN ADDRESS 
JSR R4.PREG14 






113752 


025556 












.WORD FULSLT 


ANCHOR 




6967 


113754 


022737 


177777 


002410 




CMP 


« I, SLOT 


s CHECK IF AT END OF TABLE 






6960 


113762 


001452 








BEQ 


50* 


J IF YES. RETURN 






6969 


113764 










CALL 


blNMEx SL0r.»6.«STRBUF 


{ELSE. PUT ASCII ADDRESS INTO 1 


BUFFER 






113764 


012725 


002524 










MOV •STRBUF.(R5)» 






113770 


012725 


000006 










MOV ♦6.CR5). 






115774 


015725 


002410 










MOV SL0T.CR5). 






114000 


004457 


070656 










JSR R4.PREG14 






114004 


005150 












.UORD BINHEX 


-ANCHOR 




6970 


114006 










CALL 


PRTNOO 


1 PR INT NODE TABLE ENTRY 








114006 


004457 


070656 










JSR R4.PREG14 






114012 


026040 












.UORD PRTNOO 


-ANCHOR 




6971 


114014 


062757 


000010 


002410 




ADO 


•8. .SLOT 


iINCR. SLOT TO POINT TO NEXT TABLE ENTRY 




6972 


114022 


000751 








BR 


10» 


iCONTINUE UNTIL ALL ENTRIES PRINTED 




6975 


114024 








20»: 


PRINTF 


«TABEMT.«NOD 










114024 


012746 


055415 










MOV 


•NOO. 




114030 


012746 


053346 










MOV 


tfTHBEHT. 


^ sP"* 




114034 


012746 


000002 










nov 


*J. <>P^ 





6974 
6975 
6976 
69-' 7 
6978 
6979 
6900 
6981 

6982 
6983 
6984 
6985 
6986 
6987 
6988 
6989 
6990 
6991 

6992 
6993 



114040 
114042 
114044 
114050 



6994 

6995 
6996 
6997 
6996 
6999 



7000 
7001 
7002 



7003 
7004 
7005 
7006 
7007 
7008 
7009 
7010 



114052 
114052 
114054 
114060 
114062 
114064 
114066 
114072 
114074 
114076 
114100 
114102 
114102 
114104 
114110 
114110 
114114 
114120 
114124 
114126 
114130 
114134 



114136 
114136 
114140 
114142 
114146 
114152 
114152 
114156 
114162 
114166 
114170 
114172 
114176 



114202 
114206 
114206 



010600 
104417 

062706 000006 
000207 



010225 
013702 
006302 
006302 
006302 
062702 
005022 
005022 
005022 
005012 

014502 
105037 

013746 
012746 
012746 
010600 
104417 
062706 
000207 



010325 
010225 
012702 
012703 

012746 
012746 
012746 
010600 
104417 
062706 
0001 S7 



003214 



002412 



003220 

003214 
054132 
000002 



000006 



002412 
002556 

054324 
054265 
000002 



000006 
114260 



105037 003220 
010325 



F 14 
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SEO 17», 



30$: 



RTS 



PC 



I RE TURN 



nov 

TRAP 
ADO 



SP.RO 

C»PNTr 

•6.SP 



(ACTION ROUTINE TO CLEAR A NODE SPECI^IEO Br NODE LOGICAL NAME 
iFROM THE NODE TABLE 



ACTCNL: PIPUSH R2 



MOV 
ASL 
ASL 
ASL 
ADO 
CLR 
CLR 
CLR 
CLR 
PIPOP 

CLRB 
PRINir 



RTS 



PINUM.R2 

R2 

R2 

R2 

«N00TBL,R2 

(R2). 

(R2). 

(R2)» 

(R2) 

R2 

PINNUT 

«L0G0EL,PINUM 



PC 



(SAVE R2 

MOV R2.fR5)> 
tPUT NODE LOGICAL NUMBER INTO R2 
jMULTIPLY BY 3 
jNOOE TABLE ADDRESS • 
I (LOG. NO. X 8) » ANOOTBL 
,ADD Off SET 

i CLEAR ENTRY (8 BYTES) 



jRESTORE R2 

MOV -(R5).R2 
» CLEAR NOTNUT FLAG 
:PRINT MESSAGE INDICATING DELETION 



(RETURN 



MOV PINUM. (SP) 

MOV •LOGDEL. (SP) 

MOV 92. (SP) 

MOV SP.RO 

TRAP C»PNTF 

ADO «6 . SP 



(ACTION ROUTINE TO SAVE NODE TABLE 



ACTSAV: PIPUSH R2.R3 



MOV *NO0TBL.R2 
MOV #SAVTBL.R3 
PRINTF •UNSMSG.tfSAVFD 



(SAVE R2 AND R3 

MOV R3.(R5t. 
MOV R2.(R5'> 

(SET REGISTERS FOR COPYING 

(R2 • FROM. R3 • TO 

(PRINT - TABLE SAVED MESSAGE 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



♦SAVED. (bP) 
*UNSMSG. (SP"* 
92. (SP) 
SP.RO 
CIPNTF 

•6.SP 



JMP 



SAVCOM 



(ACTION ROUTINE TO UNSAVE NODE TABLE 



AC TUNS: CLRB PINNUF 
P»PUSH R2.R3 



(CLEAR NOT ENOUGH' FLAG 
(SAVE R2 AND RS 

MOV R3.(R*i'l. 





114210 


010225 




7011 


114212 


121427 


AAAAC ^ 

000057 


7012 


114216 


001002 




7015 


114220 


000157 


114272 


7014 


1 14224 


012705 
012702 


002412 


7015 


114250 


AA^C 

002536 


7016 


114254 








114254 


012746 


AC A V W 

0^4333 




114240 


A 4 ^^M^ 

012746 


AC A C 

0^4203 




114244 


A 4 

012746 


000002 




114250 


010600 






114252 


104417 






114254 


062706 


AAAAA£ 

OOOOOo 


7017 


114260 


A 4 A 4 

012701 


OOOOdO 


7018 


114264 


012225 




. 019 


1142DO 


A/\C V/M 




7020 


% \ M ^^A 

114270 


/\At 

001373 




7021 


114272 
114272 
114274 


At A^J\'% 

01430£ 
014303 




7022 


1 14276 


105057 


003220 


7025 


114502 


000207 




7024 








7025 








7026 








7027 








7028 








7029 


114504 


• AK A V ^ 

105057 


AA V^^A 

005220 


'030 


114510 
114510 


A 4 A 

010225 




7051 


114512 


012701 


AAA4 V 

000132 


7052 


114516 


012702 


002714 


7055 


114522 


005022 




7A 

7034 


4 4 A A 

114524 


005501 




7055 


4 4 A V 'Vf 

114326 


AA4 V 

001575 




7056 


114550 








4 4 d V V A 

114350 


A 4 

012746 


AC V ii ^ 

055422 




4 4 A W A 

114554 


012746 


054220 




114540 


012746 


AAAAA^ 

000002 




4 4 il V ^ A 

114344 


A 4 Af AA 

010600 






ltd 

114346 


4 AA il 4 ^ 

104417 






\ % A VCA 

114350 


Af ^ ^A£ 

062706 


AAAAA^ 

000006 


/03/ 


114354 
114354 


A 4 il CA*^ 

014d02 




7035 


114556 


AAA'^A^ 

000207 




f 03'» 








^A^ A 








TAA i 
























7044 


114560 






7045 


114560 


121427 


000040 


7046 


114564 


001002 




7047 


114566 


005204 




7048 


114570 


00077J 




7049 


114572 


121427 


OOOOOO 


7050 


114576 


001007 





Fi4 
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SEQ IM 



10»: 



CMPB 

BNE 

JMP 

MOV 

MOV 

PRINTF 



SAVCOM: 
10»: 



QUIT; 



MOV 
MOV 
DEC 
BNE 
PIPOP 



CLR6 
RTS 



{R4).#57 
10« 

QUIT 

«N0DTBL.R5 
♦SAVTBL.R2 
OUNSMSG.ORESTOR 



MOV 



R2.(R5). 



♦TBLLEN.Rl 

{R2)».{R5)» 

Rl 

10 » 

R2.R5 



P»NNUF 
PC 



jSET REGISTERS FQR COPtING 

,R2 • FROM. R3 « TO 

, PRINT TABLE RESTORED' MESSAGE 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

jMOVE TABLE LENGTH TO Rl 

5 MOVE WORD 

» DECREMENT COUNTER 

;ir MORE. LOOP 

; ELSE. RESTORE COUNTERS 

MOV -{P5).R2 
MOV -CR5).R5 

; CLEAR 'NOT ENOUGH' FLAG 



•RESTOR. -(SP) 
•UNSMSG. (SP) 
♦2. (SP) 
SP.RO 
CiPNTF 
♦«>.SP 



ACTION ROUTINE TO CLEAR SUMMARY TABLE 



ACTCSU: CLR8 PINNUF 
PtPUSH R2 



10<: 



MOV 
MOV 
CLR 
DEC 
BNE 
PRINTF 



PIPOP 
RTS 



•STBLEN.Rl 

•STATBL.R2 

(R2). 

Rl 

10» 

•TABCLR.«SUMM 



R2 
PC 



: CLEAR NOT ENOUGH' COUNTER 
iSAVE R2 

MOV R2.(R5)* 

;M0VE TABLE LENGTH TO Rl 

(MOVE SUMMARY TABLE ADDRESS TO R2 

: CLEAR FIRST UORD 

:SEE IF FINISHED 

; IF NO. DO MORE 

I ELSE. PRINT TABLE CLEARED 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

: AND RESTORE R2 

MOV -(R5).R2 



MESSAGE 

♦SUMM. (SP) 
•TABCLR. -(SP) 
♦2. (SP) 
SP.RO 
C»PNTF 
•6.SP 



J ACT ION ROUTINE TO CHECK FOR PA,S DEFAULT VALUE 



ACTDFT: 

10* : CMPB 
BNE 
INC 
BR 

20* : CMPB 
BNE 



(R4),»40 

20 » 

R4 

10* 

(R4).#0 
SO* 



SEE IF SPACES 
IF NO. CONT. 

ELSE. POINT TO NEXT CMAR 
AND CHECK AGAIN 
SEE IF DEFAULT VALUE 
IF NO. BR 



Gi4 
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7051 


114400 


012763 


000030 


000002 




MOV 


»30.2(R3) 


J IF rES. POINT R3 TQ SKIP CHECK 


PASS COUNT 


7052 


114406 


012737 


000001 


003214 




MOV 


•l.P»NUM 


iSET DEFAULT TO 1 




7055 


114414 


000403 








BR 


40$ 


1 RE TURN 




7054 


114416 


012763 


000004 


000002 


30*: 


MOV 


*4,2(R?) 


iPOINT R3 TO CHECK FOR PASS COUNT 


7055 


114424 


000207 






401: 


RTS 


PC 






7056 




















7057 










1 










7058 










t ACTION ROUTINE 


TO READ A FILE FROM 


EXTERNAL MEDIA ONTO THE NODE TABLE 




7059 










t 










7060 




















7061 


114426 








ACTUSF : 










7062 


114426 










P*PUSH 


R2 


tSAVE R2 






114426 


010225 












MOV R2.CR5). 




7063 


114430 


005002 








CLR 


R2 


iINITIALiZE R2 TO NODE TTPE 'TARGET' 


7064 


114432 










OPEN 


CBOADR 


J OPEN FILE, NAME-ASCIZ STRING 






114432 


013700 


002370 










MCV 


CBOADR, RC 




114436 


104434 












TRAP 


CtOPEN 


7065 


114440 










BCOMPLETE 10 » 


J RE TURN IF SUCCESSFUL 






114440 


103413 












BCS 


10* 


7066 


114442 










PRINTr 


«0PNERR.CB0ADR 


s ELSE PRINT "OPEN ERROR" 






114442 


015746 


002370 










MOV 


CBOADR. (SP) 




114446 


012746 


116072 










MOV 


•OPNERR. (SP) 




114452 


012746 


000002 










MOV 


92. CSP) 




114456 


010600 












MOV 


SP.RO 




114460 


104417 












TRAP 


C*PNTF 




114462 


062706 


000006 










ADO 


♦6.SP 


7067 


114466 










CLOSE 




: CLOSE FILE 






114466 


104435 












TRAP 


C*CLOS 


7068 


114470 








10<: 


CALL 


RDLIN 


jREAO A LINE AT A TIME 






114470 


004437 


070656 










JSR R4.PREG14 




114474 


024520 












.WORD ROLIN ANCHOR 


7069 


114476 


005737 


116066 






TST 


BAD 


:SEE IF AN ERROR DURING READ 




7070 


114502 


001064 








BNE 


40* 


i BR ON ERROR TO LEAVE 




7071 


114504 


005737 


116070 






TST 


EOFF 


J SEE IF EOF BEFORE PROCESS 




7072 


114510 


001411 








6EQ 


20* 


J IF VALID. PROCESS 




7073 


114512 










PRINTF 


•EOFFND 


{ ELSE SAY -END OF FILE' AND LEAVE 




114512 


012746 


116205 










MOV 


•EOFFND. -(SP) 




114516 


012746 


OOOOJl 










MOV 


*1. (SP^ 




114522 


010600 












MOV 


SP.RO 




114524 


104417 












TRAP 


CIPNTF 




114526 


062706 


000004 










ADD 


♦4.SP 


7074 


114532 


000450 








BR 


40* 






7075 


114534 








201: 


PRINTF 


♦PL INE. OF ILL IN 


jPRINT LINE READ FROM FILE 


•FILL IN. (SP) 




114534 


012746 


115542 










MOV 




114540 


012746 


116154 










MOV 


•PLINE. -(SP) 




114544 


012746 


000002 










MOV 


92. (SP) 




114550 


010600 












MOV 


SP.RO 




114552 


104417 












TRAP 


CJPNTF 




114554 


062706 


000006 










ADD 


•6.SP 


70 /o 


1 14360 










CALL 


EOPACK ♦FILLIN.»A0RBUF,«6 jPUT ADDRESS INTO BINARt 




114560 


012725 


000006 










MOV «6.(R5) 


• 




114564 


012725 


002516 










MOV •A0RBUF.(B5^. 




114570 


012725 


115542 










MOV ©FILLIN.CRS). 




114574 


004437 


070656 










JSR R4.PREG14 




114600 


004600 












.WORD EOPACK 




707 7 


114602 










P*P0P 


Rl 


; CHECK RESULTS 






1 14602 


014501 












MOV (RS\Rl 
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7076 




OOl^ll 




7079 


114606 
















114612 


Oltf f 


AAAAAt 
OUUOOX 




4 4 4 ^ 








4 4 ^A 

1 14o<:0 








4 4 

114622 


A^^7A^ 

uoc f Oo 






1 1402D 






7081 


114630 


110257 


002406 


'002 




4 A^ 4 AO 

103 lUe 












7064 


114642 








4 4 A£.A O 


AAAA V7 


U r UODO 




4 4 A^A£^ 


AOivA 1 A 








A1 ACIAI 






4 4 AiLQO 


AAA7n& 




fSJO 1 




A1 




f Ooo 


4 4 A^CJL 






TAMO 










114662 


012746 


054333 












114672 


012746 


000002 




114676 


010600 






114700 


104417 






114702 


062706 


000006 


7090 


114706 
114706 


000207 





S0$: 



40»i 



H14 
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BEQ 30t 
PRINTF «CAOERR 



BR 

MOVB 
C0^© 
BICB 
CALL 



BR 

PIPOP 



40* 

R2.N0DTY 

R2 

•576. R2 
ENTRND 



P$POP Rl 



101 

R2 



CLRB PINNUF 

PRINTr «UNSMSG.»RESTOR 



RETURN 



SEQ 176 



I IF OK. BR 

I ELSE PRINT ERROR MESSAGE 

MOV 
MOV 
MOV 
TRAP 
ADO 

s AND EXIT 

I SET UP NODE TYPE 

iSWiTCH TYPE FOR NEXT TIME 



♦CAOERR. CSP) 
•1. CSP) 
SP.RO 
C»PNTr 

•4.SP 



R4.PREG14 
ENTRNO- ANCHOR 

CR5).Rl 



i ENTER IN NODE TABLE 
JSR 
.UORO 

sGET RESULTS 

MOV 

I READ MORE ADDRESS 
; RES TORE R2 

MOV 

iCLEAR NOT ENOUGH' FLAG 
:PRINT 'TALBE RESTORED' MESSAGE 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 



(R5).R2 



ORES TOR. 

••^ISMSG. 

•2. (SP) 

SP.RO 

CiPNTF 

»6.SP 



(SP) 
(SP) 



RTS 



PC 
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SEO 17 7 



7092 
7093 
7094 
7095 
7096 
7097 
7096 
7099 
7100 
7101 
7102 
7105 
7104 
7105 
;i06 
7107 
7108 
7109 
7110 
7111 
7112 
7115 
7114 
7115 
7116 
7117 
7116 
7119 
7120 
7121 
7122 
7125 
7124 
7125 
7126 
7127 
7128 
7129 
7150 
7151 
7152 
7155 
7154 
7155 
7136 
7157 
7158 
7159 
7140 
7141 

7142 
7145 
7144 
7145 
7146 
7147 



114710 
114710 
114714 
114714 
114720 
114724 
114724 
114724 
114726 
114752 
114754 
114756 
114742 
114746 



005237 003202 



015701 
062701 



104422 

020157 
002016 
005001 
012705 
012704 
012314 



005750 
000010 



005750 



004052 
047674 



.SBTTL RESPONOER TEST 



I * ♦ 



! FUNCTIONAL DESCRIPTION: 



THIS TEST FORWARDS LOOP -SERVER FORWARD REQUEST PACKETS, 
AND TRANSMITS A CONSOLE ID EVERY 8 TO 9 MINUTES. 



CALLING SEQUENCE 
NONE 

INPUT 

NONE 
IMPLICIT INPUT 
NONE 

OUTPUT 

NONE 
IMPLICIT OUTPUT 
NONE 

COMPLETION COOES 

NOHE 
SIDE EFFECTS 
NONE 
; REGISTERS USED 
' NONE 



DEBUG 



ACTRSP: 
10»: 

20$: 



NONE 



INC 

MOV 
ADD 

BREAK 

CMP 
BGE 
CLR 
MOV 
MOV 
MOV 



RSPFLG 

TIMMIN.RI 
«8. .Rl 



Rl.TIMMIU 

501 

Rl 

♦MCSTAD.R3 
«IDTDAT.R4 
(R3)..(R4) 



: INOICATF WE ARE IN LISTEN MODE 

: GET CURRENT NUMBER OF MINUTES 
i AND ADD 9 MINUTES TO IT 

: ALLOW OPERATOR TO RETAKE CONTROL 

TRAP CtBRi^ 

; HAS NINE MINUTES GONE Br? 

J BRANCH IF NOT 

J INDICATE THAT TIME HAS GONE B> 

; CONSOLE ID MULTICAST ADDRESS 

J ADDRESS OF CONSOLE ID MESSAGE 

{ SET MULTICAST ADDRESS 
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7148 114750 012564 000002 MOV 

7149 114754 012364 000004 MOV 

7150 114760 015702 024220 flOV 

7151 114 764 000157 115260 JMP 

7152 114770 50»: 

7155 114770 CALL 

114770 004457 070656 

114774 005044 

7154 114776 PIPOP 
114776 014502 

7155 IISOOO 001751 BEQ 

7156 115002 015702 024226 HOV 

7157 115006 052762 040000 000010 BIT 

7158 115014 001411 BEQ 

7159 115016 052762 010000 000010 BIT 

7160 115024 001405 BEQ 

7161 115026 ERRHRD 
115026 104456 

115050 000072 

115052 066211 

115054 000000 

7162 115056 000555 BR 
7165 115040 401: 

7164 115040 016205 000004 MOV 

7165 115044 016504 000014 HOV 

7166 115050 025704 050506 CMP 

7167 115054 001060 BNE 

7168 115056 010504 MOV 

7169 115060 062704 000016 ADO 

7170 115064 062404 ADO 

7171 115066 022724 000002 CMP 

7172 115072 001405 BEQ 
7175 115074 ERRHRD 

115074 104456 

115076 000075 

115100 066267 

115102 000000 

7174 115104 000552 BR 

7175 115106 50t: 

7176 115106 012425 MOV 

7177 115110 012425 HOV 

7178 115112 012425 HOV 

7179 115114 012704 0040 " HOV 

7180 115120 012425 HOV 

7181 115122 012425 HOV 

7182 115124 012425 HOV 
7185 115126 005725 TST 

7184 115150 062715 000010 ADD 

7185 115154 016205 000010 HOV 

7186 115140 042705 174577 BIC 

7187 115144 116204 000012 HOVB 
7186 115150 042704 177400 BIC 

7189 115154 050405 BIS 

7190 115156 062705 000074 ADD 

7191 115162 006205 ASR 

7192 115164 005405 NEC 
7195 115166 015704 024220 HOV 
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(R5)»,2(R4} 
(R5)*.4CR4) 
XRGCUR,R2 
75 « 

RECEVE 



R2 
20 ( 

RRGNXT,R2 

«HRERRS.STAT1(R2) 

40t 

«HDISC.STAT1(R2) 
40 ( 

58.EHSG58 



110$ 

L0ADD(R2).R3 

PR0T0T(R3).R4 

PR0T00,R4 

70$ 

R5.R4 

•LDSKIP,R4 

(R4)*.R4 

«F0RURD,(R4)* 

501 

59.EMSG59 



not 

(R4)*,(R5)* 

(R4)*.(R5)* 

(R4)».(R5)* 

«PHYADR.R4 

(R4)*.(R5>» 

(R4)*.(R5)» 

(R4)*,(R5)* 

(R5). 

•10. (R5) 

STAT1(R2).R5 

•17457 7. R5 

STAT2(R2).R4 

•177400, R4 

R4,R5 

•60. .R5 

R5 

R5 

XRGCUR.R4 



SEG 178 



I AGAIN 

, AND LAST TWO BYTES 

i GET CURRENT XHIT DESCRIPTOR 

i GO XHIT THE CONSOLE ID 

I SEE IF THERE IS A BUFFER 

JSR R4.PREG14 
.WORD RECEVE -ANCHOR 

t GET COUNT OF VALID RECEIVES 

HOV -(R5),R2 

I BRANCH IF NONE 

I ELSE. GET ADDRESS OF DESCRIPTOR 

t ARE ANY ERRORS INDICATED 

: BRANCH IF NOT 

: ELSE. ARE THEY VALID? 

t BRANCH IF NOT 

: ELSE. REPORT ERROR 

TRAP OERHRD 
.WORD 58 
.WORD EHSG58 
.WORD 0 

I DO IT ALL AGAIN 

s GET THE DATA BUFFER ADDRESS 
i GET PROTOCOL TYPE CODE 
s LOOP SERVER HESSAGE? 
s BRANCH IF NOT 

i POINT TO BEGINNING OF BUFFER 

s BUMP THE POINTFR 

: POINT TO FUNCTION CODE 

: IS THIS A FORWARD HESSAGE? 

■ BRANCH IF YES 

i ELSE. REPORT UNINVITED REPLY RCVD 

TRAP CtERHRD 
.WORD 59 
.WORD EHSG59 
.WORD 0 

: DO IT ALL AGAIN 

» FILL IN NEW DESTIN'ATION ADDRESS 
: AND AGAIN 
: AND AGAIN 

: POINT TO OUR PHYSICAL ADDRESS 
t FILL IN SOURCE ADDRESS 
: AND AGAIN 
I AND AGAIN 

{ POINT PAST TYPE CODE 

I UPDATE THE SKIP COUNT TO NEXT FUNC COOt 
: GET STATUS WORD 2 

t CLEAR ALL BUT RCVD BYTt CNT BITS 8 10 

t GET RCVD BYTE CNT 0 7 

: KILL ALL UNWANTED BITS 

: COMBINE THE TWO FOR TOTAL B>TE COUNT 

t ADD HISSING BITES 

s CONVERT TO A WORD COUNT 

s HAKE IT TWO'S COMPLEMENT 

t GET CURRENT XHIT DESCRIPTOR 



CVNIAAO 0€QM NI EXERCISER OIAG HACRO M1200 22 MAR 84 13:12 



I<i4 

PAGE 55-2 
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7194 


115172 


010364 


000006 






nov 


7195 


115176 


016404 


000004 






nQv 


7196 


115202 


016202 


000004 






nuv 


7197 


115206 








£ A • 

60 > : 




7198 


115206 


012224 








nuv 


7199 


115210 


005203 








XNL 


7200 


115212 


001375 










7201 


115214 


000434 








OD 


7202 


115216 








70$ : 




7203 


115216 


022763 


AAA AAC 

000005 


AAAA ^ A 

000020 






7204 


115224 


001062 








dNc 


7205 


115226 


012704 


Ail 

0476 74 






nuv 


7206 


115232 


016364 


AAAAA£ 

00O0O6 


A A AAAA 
OOOOOO 




nuv 


7207 


115240 


016364 


AAAA4 A 


A AAA A A 

OOUUOc 




nuv 


7206 


115246 


016364 


AAA A 4 ^ 

000012 


000004 




nuv 


7209 


115254 


013702 


A^il ^ ^A 

024220 






nuv 


7210 


115260 








7C ft . 

75» : 




7211 


115260 


013703 


AA ^^^A 

047770 






nuv 


7212 


115264 


006203 








ACD 


7213 


115266 


005403 








Neb 


7214 














7215 


115270 


010962 


OOOOOo 






nuv 


7216 


115274 


016202 


AAAAAil 

000004 






nuv 


7217 


115300 








AA ft . 

BO I : 




7218 


115300 


012422 








MOW 

nuv 


7219 


115302 


AAC '%A V 

00S20S 








INL 


7220 


115304 


AA« V 

001375 








dNc 


7221 


115306 








901 : 




7222 


115306 










tnLL 




115306 


012725 


000001 










115312 


004437 


070656 










115316 


AA'^ 

002326 










7223 


115320 










r IKUr* 




115320 


014502 










7224 


115322 


001404 








DC A 


7225 


115324 










CHRMHU 




115324 


104456 












115326 


AAA A ^ ^ 

000076 












115330 


066451 












115332 


AAA AAA 

000000 










7226 


115334 








« AA * 

100* : 




7227 


115334 














115334 


012725 


024224 










115340 


012725 


A A AAA « 

000001 










115344 


004437 


070656 










115350 


006534 










7228 


115352 


005701 








TST 


7229 


115354 


AA « AA^ 

001006 








dNt. 


7230 


115356 


013701 


003750 






now 


7231 


115362 


A^ ^ A 1 

062/01 


AAAA 1 A 

OOOOlO 






Ann 


7232 

R 


115366 


AAA 4 V ^ 

000137 


114724 






JHr 


7233 


115372 








1 1 o t • 
i LU 9 : 




7234 


115372 










CALL 




115372 


012725 


024226 










115376 


012725 


000001 










115402 


004437 


070656 










115406 


006450 











R3.WR0CNT(R4) 

L0A00(R4).R4 

L0A00(R2).R2 

(R2)».(R4)» 

R3 

60$ 

90$ 



SEQ 179 



, PUT IT INTO THE XMIT DESCRIPTOR 
J POINT TO THE XMIT DATA BUFFER 
I GET THE RECEIVE DATA BUFFER 

; START FILLING TN THE DATA BUFFER 

> BUMP WOROCOUNT 

J 00 IT UNTIL THE PACKET HAS BEEN -QPIEO 

s GO XMIT THE PACKET 



♦IDFUNC,RIFUNC(R3) ; 
110$ I 
«IDTDAT.R4 > 
S0URCC(R3).DESTIN(Rn) t 
S0URCC»2CR3),DESTIN*2(R4) 
S0URCC»4(R3).DESTIN»4(R4) 
XRGCUR.R2 



i 



IS THIS A REQUEST ID CONSOLE T PE? 

IF NOT. THROW IT OUT 

POINT TO ID TRANSMIT DATA 

FILL IN DESTINATION OF ID MESSAGE 

: FILL IN DESTINATION OF ID MESSAGE 

; FILL IN DESTINATION OF ID MESSAGE 

GET XMIT DESCRIPTOR 



IDTSIZ.R3 

R3 

R3 

R3.URDCNT(R2) 
L0A0D(R2).R2 

(R4)».(R2)» 

R3 

80$ 



XMIT 



R2 
100$ 



•XMTDAT 



GETXNX «1.*XRGNXT 



Rl 
110$ 

TIMMIN.Rl 
«6. .Rl 
20$ 



GETRNX *1.«RRGNXT 



; SET SIZE OF XMISSION 

; CHANGE TO UORD COUNT 

; TUGS COMPLEMENT IT 

I SET XFER SIZE 

; GET XMIT DATA BUFFER ADDRESS 

; PUT ID DATA INTO XMIT DATA BUFFER 

: BUMP COUNT 

! DO UNTIL COMPLETE 



TRANSMIT THE PACKET 
MOV 
JSR 
.WORD 

GET STATUS 

MOV 

BRANCH IF OKAr 



♦XMTDPT.(R5). 
R4.PREG:4 
XMIT -ANCHOR 



(R5).R2 



TRAP 
.WORD 
.WORD 
.WORD 



CfERHRD 

62 

EMSG62 
0 



UPDATE XMIT RING POINTERS 

MOV ♦XRGNXT.(R5)» 

MOV «1.CR5)» 

JSR R4.PREG14 

.WORD GETXNX ANCHOR 
WAS TRANSMISSION A 9 MINUTE SYS ID? 
BRANCH IF NOT. RECEIVE POINTER NEEDS UPDATING 
ELSE GET MINUTES SINCE START 
AND ADO NINE MINUTES TO IT 

NOTHING RECEIVED CAUSED XMIT. DON T UPDATE RC\. PN' 



i UPDATE RECEIVE RING POINTERS 

MOV 0RRCNXT.(R5). 
MOV «1.(R5)» 
JSR R4.PREG14 
.WORD GETRNX ANCHOR 



L14 
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723S 115410 000137 114724 JMP 201 i DO IT ALL AGAIN 

''2 5fe 



M14 
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SEQ 181 



7258 
7239 
7240 
7241 
7242 
7243 
7244 
7245 
7246 
7247 
7248 
7249 
7250 
7251 
7252 
7253 
7254 
7255 
7256 
7257 
7258 
7259 
7260 
7261 
7262 
7263 
7264 
7265 
7266 
7267 



7268 
7269 



7270 
7271 
7272 
7273 
7274 
7275 
7276 
7277 
7278 
7279 
7280 
7281 
7282 
7283 
7284 
7285 
7286 



115414 
115420 
11S424 
115430 
115430 
115432 
115434 
115434 
1154 36 
115436 
115442 
115446 
115450 
11S4S2 
115456 
115464 

115466 
115472 
115474 

115S00 
115502 

115506 
115510 
115512 

115514 

115522 
115524 



012702 
005037 
005037 

104426 
110012 

103414 

012746 
012746 
010600 
104417 
062706 
012737 
000416 

122712 
001756 
122712 
001410 
122712 

101002 
005202 
000746 

012737 

105012 



.SBTTL READ LINE OF OPENED FILE 



J THIS ROUTINE GETS BYTES FROM AN OPENED FILE UNTIL A CR IS ENCOUNTERED 
J "EOF" AND "BAD" FLAGi ARE SET IF END OF-FILE OR ERRORS ARE ENCOUNTERED 



NOTE: 



115542 
116066 
116070 



116066 



116126 
000001 



000004 
177777 



000015 
000012 
000040 



177777 116070 



RDLIN: 
10$: 

20$: 



30$: 



40$: 
50$: 



ASSUMING A ASCII TEXT FILE IS BEING READ. FOR EXAMPLE: 
AA-00 05-00-01-AB<CR><LF> 

II 

AA-00 03-00-01-AB<CR><LF> 

WHAT YOU SEE READ BYTE BY BYTE IS: 

"A. . -AB<CR><LF>A. . -AB<CR><LF> . .<0><0><0> ??? 

SO I MADE ASSUMPTION THAT SINCE SEE "0 -PADDING" AFTER LAST CHAR TO 
ENO-OF-FILEBLOCK, ANY CHARACTER THAT IS NOT "SPACE OR GREATER" OR A 
<CR> OR <LF> THEN I'LL TAKE THAT AS ENO-OF-FILE(TEXT). SET EOF FLAG 
AND LEAVE. 



INPUTS: 



OUTPUTS: 



FILLIN BUFFER TO HOLD LINE OF BYTES READ FROM OPENED FILE 
(CR NOT INCLUDED. 0-BYTE TERMINATED) 

BAD IF NON-ZERO, ERROR IN READING A BYTE FROM FILE 
EOFF IF NON-ZERO. END OF FILE WAS ENCOUNTERED 
FILLIN ASCI2 STRING THAT WAS READ AS CHAR-CR-LF STRING 
(CR-LF REMOVED) 



MOV 
CLR 
CLR 

GETBYT 



«FILLIN.R2 
BAD 
EOFF 
(R2) 



BCOMPLETE 30$ 
PRINTF «RDERR 



MOV 
BR 

CMPB 

BEQ 

CMPB 

BEQ 

CMPB 

BHI 
INC 
BR 

MOV 

CLRB 
RETURN 



•-1.BAD 
50$ 

•15. (R2) 
10$ 

»12.(R2) 
50$ 

♦40. (R2) 

40$ 

R2 
10$ 

0 l.EOFF 
(R2) 



: POINT R2 TO A LINE BUFFER 
: CLEAR FLAGS 

iGO GET A BYTE FROM INPUT FILE 

TRAP 
MOVB 

;PR IF READ -BYTE SUCESSFUL 

BCS 

: ELSE PRINT "READ -ERROR" 

MOV 

MOV 

MOV 

TRAP 

ADO 

i SET BAD -TRY FLAG AND LEAVE 



C$GETB 
R0.(R2) 

30$ 

«RDERR. (SP) 

♦l.-(.P) 

SP.RO 

C$PNTF 

#4.SP 



lis THE CHARACTER A <CR> 

: BR IF YES (GO BACK TO GET <LF>) 

tIS THE CHARACTER A <LF> 

; BR IF YES (TERMINATE AND LEAVE) 

sis IT A "EOF" (ENO-OF FILE(TEXT)) 

t (EOF-ANY N(»<-CMAR>37 EXCEPT CR.LF) 

t BR IF YES 

s IF NO. LEAVE CHAR IN BUFFER 
; AND GO GET MORE CHARS 

sIF YES. TERMINATE INPUT BuFF 
; AND SET EOF FLAG 
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SEQ 182 



7287 
7288 
7289 
7290 
7291 
7292 
7293 
7294 



115524 000207 



7295 



7296 



7297 



7298 
7299 
7300 
7301 
7302 
7303 
7304 
7305 
7306 
7307 
730a 



115526 
115542 
115746 
116066 
116070 

116072 
116075 
116100 
116103 
116106 
116111 
116114 
116117 
116122 
1 16125 
1 6126 
1 .6131 
116134 
116137 
116142 
116145 
116150 
116153 
116154 
116157 
116162 
116165 
116170 
116173 
116176 
116201 
116204 
116205 
116210 
116213 
116216 
116221 
116224 
116227 
116232 
116235 
116240 
116243 



000000 
000000 

045 

101 
116 
114 
124 
117 
116 
045 
101 
000 
045 
101 
111 
040 
101 
105 
117 
000 
045 
101 
114 
114 
105 
101 
045 
124 
000 
045 
101 
104 
106 
111 
040 
125 
054 
111 
040 
101 



RTS 



PC 



FILENM: 

FILLIN: 

MATCH: 

BAD: 

EJFF: 

116 045 OPNERR: 
077 125 

101 102 

105 040 

117 040 
120 105 
040 042 
124 045 
042 077 

116 045 RDERR: 

077 106 

114 105 

122 105 

104 040 
122 122 

122 077 

116 045 PLINE: 

106 111 

105 040 
111 116 
040 127 

123 072 
116 045 
045 116 

116 045 EOFFNO: 

105 116 
055 117 
055 106 
114 105 

106 117 
116 104 
040 106 
114 105 
122 105 
104 000 



.BLKB 
.BLKB 
.BLKB 
.WORD 
.WORD 



12. 

132. 

60. 

0 

0 



: BUFFER FOR FILE NAME 

(BUFFER FOR SINGLE LINE READ FROM FILE 
i BUFFER FOR UORD TO MATCH FROM FILE 
I ERROR/NOT -FOUND FLAG WORD 
jEND-OF-FILE FLAG f<>0 • EOF) 



.ASCIZ /*N#A?UNABLE TO OPEN "^T^A"?/ 



.ASCIZ /MWA7FILE READ ERROR?/ 



.ASCIZ /^NtfAFILE LINE UAS:«(NKT«N/ 



.ASCIZ /#N*AEND-OF-FILE FOUND. FILE READ/ 



SELMSG 



OPERATOR SELECTED MESSAGE STORAOc 



THIS ROUTINE UILL TAKE THE OPERATOR SELECTED MESSAGE FROM THE COMMAND 
LINE INPUT STRING BUFFER AND PUT IT INTO A BUFFER AT LOCATION OPSLBF. 



INPUTS - 

EXPLICIT OUTPUTS 
IMPLICIT OUTPUTS 



PI ADDRESS OF OPERATOR SELECTED MESSAGE IN 
INPUT STRING 

NONE 

THE BUFFER AT OPSLBF UILL CONTAIN THE ASCII 
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SEO 183 















1 

' 9 i i 






' d XC 






' did 










































7X1Q 




01 370P 






W JWd 


■ A 






( dec 


















' dC J 




0A01 X7 


7XM 




1 1P71P 


7X37 

' dC ' 




A10XX7 


7X311 

f dCO 










(VV>3A7 


7X30 
f dc^ 






7Xxn 






7XX1 






7XX3 

' dd< 






7XXX 

' ddd 






7XXA 

' dd^ 






7XXS 

( ddd 






' ddO 






7XX7 

f dd / 






7XXIt 

' ddO 












7540 






7541 






7542 






7545 






7544 






7545 






7546 






7547 


116504 





7546 



116504 
116510 
116512 
116512 

7549 116514 

7550 116516 
116516 



7551 
7552 
7555 
7554 

7555 
7556 
7557 
7356 
7159 



116522 
116524 
116550 
116554 
116540 
116542 
116544 
116546 
116550 



004457 
025466 

014501 
001405 

012725 
000416 
012705 
015701 
012702 
112221 
005505 
001575 
005201 
115711 



SELMSG: 



lOti 



201 1 



070656 



177777 

000006 
002410 
002516 



002406 



101: 

201: 



SueOROINATE ROUTINES 
CALLING PROCEEOURE 
REGISTER USAGE - 



OPERATOR SELECTED INPUT STRING FOLLOWED Br 

A NULL CHARACTER 

NONE 

CALL SELNSG PI 1 INPUT ADDRESS OT ASCII STRING 
RI CONTAINS ADDRESS OT INPUT STRING 
R2 CONTAINS ADDRESS OT OUTPUT STRING 



PIPOP 


Rl 


iPUT ADDRESS OF OPR. SEL ASCII STRING INTO Rl 






MOV (R5).R1 


MOV 


♦0PSLBF,R2 


|PUT ADDRESS OF OUTPUT BUFFER INTO R2 


CLR 


R5 


1 CLEAR CHARACTER COUNTER 


TSTB 


(Rl) 


iCHECK FOR END OF STRING 


BEQ 


201 


iGO TO 201 IF END 


MOVB 


{R1).,(R2). 


lELSE. MOVE BrTE TO OUTPUT BUFFER 


INC 


R5 


1 COUNT NUMBER OF CHARACTERS IN INPuT BUFFER 


JMP 


101 


iGO DO MORE CHARACTERS 


novB 


♦0.(R2) 


iPUT ZERO AT END OF OUTPUT BUFFER 


MOV 


R5.MSG6C 


iSTORE NUMBER OF CHARACTERS FOR USE IN BUF . BlIlDING 


RETURN 










RTS PC 


ENTRNO 




ENTER NODE IN TABLE 


THIS ROUTINE ENTERS A 


NODE INTO THE NODE TABLE 


INPUTS 




NONE 


EXPLICIT OUTPUTS 


PI ZERO IF SUCCESSFUL. I IF TABLE FULL 


IMPLICIT OUTPUTS 


THE ADDRESS CONTAINED IN AORBUF WILL BE 






ADDED TO THE NODE TABLE IN THE FIRST 






AVAILABLE SLOT WITH THE NODE TtPE CONTAINED 






IN NOOTr (TARGET OR ASSIST) 


SUBORDINATE ROUTINES 


FINDSL FIND EMPTY SLOT IN TABLE 


CALLING PROCEEOURE 


CALL ENTRND 






P»PQP PI jOUTPUT GOOD 'BAD RESULT 


CALL riNOSL 


iFIND AVAILABLE SLOT IN TABLE ' 






jSR R4.PREG14 






.WORD FINDSL ANChQA 


PtPOP 


Rl 


1 CHECK IF TABLE FULL 






MOV (R5).R1 


BEQ 


101 


lIF NOT FULL BR TO 101 


P»PUSH 


0 1 


jELSE PUT FULL INDICATION ON STACK 






MOV # l.iBS^- 



BR sot {RETURN 

MOV ♦6.HS iSET INCR. COUNTER TO 6 (BiTES) 

MOV SLOT.Rl «MOV ADDRESS OF AVAILABLE SLOT TO Rl 

MOV •A0RBUF.R2 iMOV ADDRESS OF NODE ADDRESS TO R2 

MOVB (R2)..(Rl). «MOV BtTE OF ADDRESS 

DEC RS iDECR. COUNTER 

BNE 201 iCONTINUE UNTIL 6 BYTES TRANSFEREO 

INC Rl I SET POINTER TO NODE TtPE LOCATION 

MOVB NODTt.(RI) iMOvE NODE TiPE INTO TA'LE 
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'560 

7561 

7562 
7565 
7564 
7565 
7566 
7567 
7S60 
7569 
7570 
7571 
7572 
••575 
7574 
7575 
7576 
7577 
7578 
7579 
75«0 
7561 
7502 
7565 
7564 



116554 
116554 
116560 
116560 



7565 

7386 
758 7 
7368 

7589 

7590 
7591 
7592 
7595 
7394 
7395 
7596 
7597 
7598 
7399 
7400 
7401 
7402 
7405 
7404 
7405 



116562 
116566 
116572 
116574 
116400 
116404 
116406 
116406 
116412 
116416 
116422 
116424 
116426 
116452 
116452 
116456 
116440 
116444 
116444 
116450 
116450 



012725 
000207 



012702 
022712 
001422 
062702 
022712 
001370 

012746 
012746 
012746 
010600 
104417 
062706 

012725 
000404 

010257 

012725 
000207 



000000 



002412 
000000 

000010 
177777 



055415 
055274 
000002 



000006 
177777 
002410 
000000 



50*: 
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PtPUSH 90 
RETURN 



FINOSl 
INPUTS 

EXPLICIT OUTPUTS 
IMPLICIT OUTPUTS 



SUBORDINATE ROUTINES 
CALLING PROCEDURE 



SEQ 184 



I 
i 

t - » 

FINOSL: MOV 
101: CMP 
BEQ 
ADO 
CMP 
BNE 



201; 
50(; 



•NOOTBL.R? 
•0.(R2) 
20 1 

♦8. .R2 

•-l.(R2) 
101 



PRINTF •TABFUL.ANOO 



PIPUSH •l 



BR 
MOV 

PIPUSH 
RETURN 



FULSLT 



50* 

R2.SL0T 
«0 



iPUT ADDRESS AOOCO INDICATION ON STACK 

MOV •O.'RS). 

iRETURN 

RTS PC 



FIND EMPIr SLOT IN NODE TABLE 

NONE 
NONE 

THE ADDRESS OF THE FIRST AVAILABLE SLOT IN THE 
NODE fWLE WILL BE LOCATED IN SLOT. THE 
PARAMETER STACK UIIL CONTAIN -1 IF THE NODE 
TABLE IS FULL AND 0 IF AN EMPTt SLOT WAS FOUND 
NONE 

CALL FINDSL 

PIPOP PI I 1 IF FULL/ 0 IF SLOT AVAILABLE 



(MOVE ADDRESS OF NODE TABLE TO R2 
I SEE IF SLOT EMPTY 
I IF TES. BR 20$ 

(ELSE NOVE POINTER TO NEXT ENTRY LOC 
iSEE IF AT END OF TABLE 
>IF NOT. CONTINUE LOOKING 
iELSE. PRINT TABLE FULL MESSAGE 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

tPUT TABLE FULL INDICATION ON STACK 
MOV •-l.(R5). 

jMOVE ADDRESS OF EMPTv LOC. INTO SLOT 
iPUT LOC. FOUND INDICATION ON STACK 
MOV •0.(R5). 

tRE TURN 

RTS PC 



«NOD. CSP) 
•TA8FUL. CSP) 
•2. CSP) 
SP.RO 
CIPNTF 
•6.SP 



FULL SLOT ROUTINE 



THIS ROUTINE FINDS A LOCATION IN THE TABLE UHERE A NODE PHYSICAL 
ADDRESS EXISTS. IT IS USED UHEN PRINTING OUT THE NODE TABLE. 



INPUTS 

EXPLICIT OUTPUTS 
IMPLICIT OUTPUTS 



SUBORDINATE ROUTINES 
CALLING PROCEDURE 



NONE 
NONE 

THE LOCATION SLOT WILL CONTAIN THE PHYSICAL 
ADDRESS OF A NODE TABLE ENTRY. SLOT UILL 
CONTAIN 1 UHEN POINTING TO THE END OF ^mE 
NODE TABLE 
NONE 

CALL FULSLT 
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7406 








i ♦ 






'40 f 














7408 


116452 


015701 


002410 


Cl ■ CI T . 


nov 


CI AT Dl 


7409 


116456 


022711 


000000 


10» : 




AA f oy '\ 

9\J a i Nl ; 


7410 


116462 


001412 






DCU 


xn t 


7411 


116464 


022711 


\ f f ( ( ( 




PMC 


A 1 r R1 ^ 

w 1 t V n i 7 


7412 


116470 


AAV 

001403 






Qcn 
Dcu 




7415 


1164 72 


010157 


002410 




MOV 


Rl.SLOT 












BR 


40* 


7415 


116500 


012757 


177777 002410 


20»: 


MOV 


♦-1.SL0T 


7416 


116506 


000405 






BR 


40* 


7417 


116510 


062701 


000010 


50* : 


ADD 


»8. .Rl 


7410 


116514 


000760 






BR 


10* 


7419 


116516 
116516 


000207 




40* : 


RETURN 





TABLE 
ADDRESS INTO SCOT 



7420 
7421 
7422 
7425 
7424 
7425 
7426 
7427 
7428 
7429 
7450 
7451 
7452 
7455 
7454 
7455 
7456 
7457 
7458 
7459 
7440 
7441 
7442 
7445 
7444 
7445 
7446 
7447 
7448 
7449 



7450 
7451 
7452 
7455 
7454 
7455 
7456 
745 7 



116520 
116520 
116522 
116524 
116526 

116550 
116552 
116556 
116556 
116542 
116550 

116552 
116556 
116564 
116566 
116570 
116570 
116574 
116602 

116604 
116610 
116614 
116616 
116616 
116622 
116622 
116624 
116626 
116650 
116652 
116652 
116654 
116654 
116640 
116646 
116650 
116656 



010146 
010546 
010446 
010546 

005005 
012701 

062701 
022761 
001772 

062701 
022761 
001401 
000415 

016104 
022761 
001015 

062705 
022705 
001007 



177776 

000002 
000000 



000006 
000000 



002412 
000400 



000001 
000002 



005061 002412 

104457 

000105 
067204 
000000 



005005 

062701 
022761 
001407 
022761 
001766 



000002 
177777 

000000 



iMOVE SLOT LOCATION TO «l 
iCHECK IF EMPTY 
iV YES. BR 50* 
iSEE IF END or NODE 
J IF YES. BR 20* 
I ELSE PUT EMPTY LOC . 
I RE TURN 

jPUT 1 INTO SLOT TO SHOW END OF TABLE 
(RETURN 

jINCR. POINTER TO NEXT LOCATION 
,C.«CK NEXT LOC. 
(RETURN 

RTS PC 

aaaassasasaaaaaaaassssaasaassaaaaaaaaassassaaaaasaaasaaaaaaaaasaaaaaaaaaaaa aa a 
( aaaaaaaaaaaaaaBaaa a aaaaaaa6i9aaaa8aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa a aaaaaaa a 

CHECK: 

Rl. -(SP) 
R5. (SP) 
R4. (SP) 
R5.-(SP) 



MOV 
MOV 
MOV 
MOV 



1%, 



002412 



002412 



002412 



5*: 



7*! 



10*: 
12*: 



002412 
002412 



CLR R5 

MOV ♦ 2..R1 

ADD •2..R1 

CMP tfO. .NOOTBL(Rl) 

BEQ 5* 

ADO •6..R1 

CMP •O.NOOrBL(Rl) 

BEQ 5* 

BR 7* 

MOV N00TBL(R1).R4 

CMP »4O0.N00TBL(Rl) 

BNE 10* 

ADD »1.R5 

CMP »2.R5 

BNE 12* 

CLR NOOTBL(Rl) 
ERRSOFT 69.EMSG69 



CLR R5 

ADD ♦2..RI 

CMP ♦-l.NOOTBL(Rl) 

BEQ EXITI 

CMP #0. .NOOTBL(Rn 

BEQ 12* 



i REPORT IT 



TRAP 
.UORO 
.UORO 
.WORD 



C*ERSOFT 
69 

EMSGt."^ 

0 
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SEQ 196 



7-' 58 
7459 
7460 
7461 
7462 
7463 
7464 
7465 
7466 

7467 
7h68 
7469 
7470 
7471 
7472 
7473 
7474 
74 75 
74 76 
7477 
7478 
7479 
7480 
7481 
7482 
7483 



7464 

7485 
7486 
7487 
7488 

7489 
7490 
7491 
7492 
7493 



7494 
7495 
7496 
7497 
7498 
7499 
7500 
7501 
7502 
7503 
?504 



116660 
116664 
116666 
116666 
116670 
116672 
116674 
116676 
116676 



116700 
116700 
116702 
116704 
116706 
116710 
116712 
116714 
116716 
116720 
116722 
116724 
116730 
116730 
116732 



116734 
116734 
116740 
116744 

116750 
116752 



062701 000006 
000741 

012605 
012604 
012603 
012601 

000207 



EXITli 



ADO W6..R1 
BR 5» 



MOV 
MOV 
MOV 
MOV 

RETURN 



(SP)».R5 
(SP)».R4 
(SP)»,R3 
(SP)».Rl 



RTS 



PC 



8S 8 B8S i 8aai .Q 8saBaa8aasaaBaasaassas a a88 B Baaaaa8 9 aB 9BBB aB B9B BB 9 a9aaBBe88a8a88a89 



BBaa B aBBaBBaasaaaBBBBBBBaaaaaBBaaBBBBB B Ba B aa aB BB Baa aaasaaBaaaBBaaaBaBaaaaaaaaa 

CMPAOR COMPAPE TUO AOORESSES 

THIS ROUTINE COMPARES TWO SIX BYTE STRINGS 



014502 
014503 
022225 
001006 
022223 
001004 
021213 
001002 
005001 
000402 

012701 177777 

010125 
000207 



INPUTS 
OUTPUTS 

CALLING PROCEDURE 



CMPAOR: PtPOP R2,R3 



lOi: 
20»: 



CMP 

BNE 

CMP 

BNE 

CMP 

BNE 

CLR 

BR 

MOV 



(R2)».(R3). 
10* 

(R2)..(R3)« 
10 » 

(R2).(R3) 

10) 

RI 

20 » 

0-l.Rl 



PI - ADDRESS or FIRST STRING 

P2 ADDRESS OF SECOND STRING 

P3 0 • COMPARISON/ 1 - NO COMPARISON 

CALL CMPADR P1.P2 
P$POP P3 



sPUT ADDRESS OF STRING TO BE COMPARED IN R2 AND R3 

MOV (R5).R2 
MOV (R5).R3 

iDO FIRST TUO BYTES COMPARE 

, IF NO. EXIT 

(DO SECOND TUO BYTES COMPARE 
J IF NO. EXIT 

;D0 LAST TWO BYTES COMPARE 
; IF NO. EXIT 

:PUT COMPARISON OK INDICATOR IN Rl 



RETURN Rl 



PRTNOD 
INPUTS 

EXPLICIT OUTPUTS 
IMPLICIT OUTPUTS 
SUBORDINATE ROUTINES 
CALLING SEQUENCE 



012746 002324 
012746 053144 
012746 000002 
010600 
104417 



(PUT NO COMPARISON INDICATOR IN Rl 



MOV 
RTS 



R1.(R5). 
PC 



PRINT NODE TABLE 



NONE 
NONE 

ONE ENTRY IN THE NODE TABLE UiLL BE PRINTED 
NONE 

CALL PRTNOD 



PRTNOD: PRINTF ONOOADR.«STRBUF 



(PRINT NODE ADDRESS 



MOV •STRBl'F. fSP'> 

MOV •NOOAOR. vSPI 

MOV »C. (SP"* 

MOV SP.RO 

TRAP C»PNT^ 



rib 
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SEQ 187 



7505 
7506 
7507 
7508 
■'509 
7510 



7511 
7512 
7515 
7514 
7515 
7516 
7517 
7518 
7519 



7520 
7521 



7522 
7524 
7525 
7526 
7527 
7528 
7529 
7530 
7531 
7532 
7554 
7535 
7556 
7557 



7558 
7540 
7541 

7542 



116754 
116760 
116764 
116 770 
116772 
1167 74 
116776 
116776 
117000 
117004 
117010 
117012 
117014 
117020 
117024 
117050 
117032 
117056 
117040 
117046 
117050 
117056 
117056 
117062 
117066 
117072 
117074 
117076 
117102 
117102 
117104 
117104 
117106 



117110 
117110 
117110 



062706 
015702 
162702 
006202 
006202 
006202 

010246 
012746 
012746 
010600 
104417 
062706 
015702 
062702 
111203 
020527 
001404 
012737 
000403 
012737 

013746 
012746 
012746 
010600 
104417 
062706 

000207 

104432 
000002 



104401 



000006 
002410 
002412 



055154 
000002 



000006 
002410 
000007 

000001 

061757 002514 

061747 002514 

002514 
055167 
000002 

000006 



MOV 
SUB 
ASR 
ASR 
ASR 

PRINTF 



10$: 
20t: 



MOV 

ADO 

MOVB 

CMP 

BEQ 

MOV 

BR 

MOV 

PRINTF 



SL0T.R2 

»N0DT8L.R2 

R2 

R2 

R2 

•L0GNAM.R2 



SL0T.R2 
•7,R2 
CR2).R3 
R3.»CASIST 
10 » 

♦ARGTY7,KEYU02 
20 < 

«ARGrY6.KEvuD2 
«N00TYP,KEYUD2 



RETURN 
EXIT TST 



ADO •6.SP 

iMOVE SLOT ADDRESS INTO R2 
i CALCULATE NODE LOGICAL NAME 
lUSING: LOG. NO. - 
J (SLOT W0DTAB)/8 



I PRINT LOGICAL NAME 

MOV R2. (SP) 

MOV VLOGNAM. 
MOV #2,-(SP) 
MOV SP.RO 
TRAP C«PNTF 
ADD *6.SP 

SEE If TARGET OR ASSIST NODE 
INFO CONTAINED IN 7TM BYTE OF ENTRf 

MOVE INTO R3 

SEE IF ASSIST NODE 
IF YES. BR 10« 

ELSE MOVE 'TARGET- T»'TO KfYU02 
CONT INUE 

MOVE 'ASSIST INTO KEYU02 
PRINT NODE TfPE 

MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 

;RETURN 

RTS PC 

TRAP 
.WORD 



(SP; 



KEYg02. (SP) 
*NOOTYP. (SP) 
ff2.-(SP) 
SP.RO 
CIPNTF 
«6.SP 



C»EXIT 
L 10015 



I INSERT LOCAL STORAGE TMAT IS USED ONLY 

J DURING TMIS TEST. 

I INSERT MESSAGES TMAT ARE USED ONLY 

I DURING THIS TEST. 

1 i M tiMMit m^ i^m Mi tMtMitkliMiM/^^ < «# <#<# « # « ftfM»*** 



.EVEN 
ENDTST 



L 10015: 



TRAP 



CIETST 



; BEGIN TME REMAINING TESTS ON NEW PAGES. 
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SEQ 168 



7545 
7546 
754 7 
7548 
7549 
7550 
7551 
7552 
7555 
7554 
7555 
7556 
7557 



7558 
7560 
7561 
7562 
7563 
7564 
7565 
7566 
7568 
7569 



7570 



7571 



7572 
7575 



7574 
7576 
7577 
7578 
7579 
7581 
7582 



117112 
117112 
117114 



117114 
117114 
117116 
117120 
117122 
117124 
117124 
117126 
117130 
117132 
117134 
117134 
117136 
117140 
117142 
117144 

117146 

117146 



000015 



000031 
117146 
160000 
177776 

001031 
117201 
000000 
000776 

002032 
117235 
000340 
000000 
000007 



.SBTTL HARDWARE PARAMETER COOING SECTION 



THE HARDWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THt 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



BCNHRD 



L«HARO: 



.WORD L10016-1 $HAR0/2 



I INSERT HARDWARE PARAMETER INTERPRETIVE CODE HERE. THIS CODE 

a IS USED BY THE SUPERVISOR TO INTERROGATE THE OPERATOR TOR 

J DEVICE INFORMATION TO PUT IN THE P- TABLE. THIS CODE IS USED 

IN CONJUNCTION WITH THE DEFAULT P- TABLE TEMPLATE. THE MACROS 
: USED IN THIS SECTION ARE "GPRMO", "GPRMA" AND 'GPRML". 



GPRMA ASKCSR.O.O, 160000. 177776, YES 



GPRMA ASKVEC,2.0.0.776.YES 



GPRMO ASKPRI.4.0.540.0.7.tES 



; GET CSR ADDRESS 

.WORD TtCOOE 

.WORD ASKCSR 

.WORD TILOLIM 

.WORD TIMILIM 

s GET VECTOR ADDRESS 

.WORD TICODE 

.WORD ASKVEC 

.WORD TILOLIM 

.WORD TIHlLin 

s GET PRIORITY LEVEL 

.WORD TtCOOE 

.WORD ASKPRI 

.WORD 340 

.WORD TtLOLlH 

.WORD TIHILIM 



117146 


127 


110 


101 


117151 


124 


040 


111 


117154 


123 


040 


124 


117157 


110 


105 


040 


117162 


120 


103 


123 


117165 


122 


117 


040 


117170 


101 


104 


104 



ENOHRD 



INSERT MESSAGES THAT ARE USED ONLY 

DURING THE HARDWARE PARAMETER COOING SECTION. 



.ASCIZ /WHAT IS THE PCSRO ADDRESS?/' 



L10016: 



.EVEN 



H15 



CVNIAAO OEiJNA NI EXERCISER OIAG MACRO Ml^OO 
MAROUARE PARAMETER COOING SECTION 
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3EQ 189 



1 1 7 1 7 X 


1 33 
Icc 


1 


1 3X 


1 1 71 7<» 


1 3X 

IcO 


077 






137 
Ic ' 


1 1 n 

1 L\J 


1 01 
lUl 




1 3d 
Ic^ 




111 
111 


1 1 7P07 
11' £\J ' 


1 3^ 

IC <3 




134 


11' c Ic 


1 1 o 

1 1 w 






1 1 731 ^ 
11 1 £ 


1 3#> 
lev 






1 1 7P3n 

11' CC V 


1 3d 


117 


1 33 

1 


1 1 7P3 ^ 
11' cc o 




ini 
xvx 


1 


1 1 799#t 

11' CCv 




1PP 




11 « 1 


13X 
Ic^ 


IPS 

XC w 


077 


1 1 79^4 
1 1 * c^"* 








1 1 73^S 
11' £SJ 


137 

IC ' 


1 in 

X XV 


lOl 


11' c^v 


124 




111 


117245 


123 


040 


124 


117246 


110 


105 


040 


117251 


120 


122 


ill 


117254 


117 


122 


111 


117257 


124 


ISl 


040 


117262 


114 


105 


126 


117265 


105 


114 


077 


117270 


000 







7585 
7566 



.ASCIZ /WHAT IS THE VECTOR ADDRESS?/ 



ASKPRI: .ASCIZ /WHAT IS THE PRIORITY LEVEL?/ 



.EVEN 



115 
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SOTTUARE PARAMETER COOING SECTION 

7588 .SBTTL SOFTWARE PARAMETER CODING SECTION 

758<» 
7590 



THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED Bt THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOU THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



7591 
7592 
7595 
7594 
7595 
7596 
7597 
7598 

7599 117272 BGNSFT 

117272 000000 .WORD L10017-LIS0FT/2 

117274 LISOFT:: 

7600 



INSERT SOFTWARE PARAMETER INTERPRETIVE CODING HERE. THIS CODE 
IS USED BT THE SUPERVISOR TO INTERROGATE THE OPERATOR FOR 
SOFTWARE INFORMATION WHICH WILL BE PLACED IN THE SOFTWARE 
TABLE. THIS SECTION IS OPTIONAL. 



7602 
7605 
7604 
7605 
7606 
7607 
7609 

7610 .EVEN 
7611 

7612 117274 ENDSFT 

.EVEN 

117274 L10017: 

7615 
7614 



7616 
7617 
7618 



INSERT MESSAGES THAT ARE USED ONLY 
DURING THE SOFTWARE PARAMETER CODING SECTION. 

7621 ' 

7622 117274 $PATCM: : 

7623 117274 .BLKU 5 ;t N.M. (CHANGED FROM 100 TO 5) 
7624 

7626 ; *tni' M i * ***i M mi*ittmiitM 

7627 , THIS IS A PATCH AREA THAT SHOULD BE INCLUDED IN ALL DIAGNOSTICS. 

7628 ; ADJUST THE SIZE TO FIT YOUR OWN PREFERENCES. 

7631 * 

7652 117506 LASTAD 

. EVEN 

117506 000000 .WORD 0 

117510 000000 .WORD 0 

117512 LJLAST:: 

7653 117512 .BLKW 5 N.M. (CHANGED FROM 40 TO 5) 



Ji5 



CVNIAAO DEQNA NI EXERCISER DIAG MACRO M1200 
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SEQ 191 



7635 
7656 
7658 
7659 
7640 
7641 
7642 
7645 
7644 
7645 
7646 
7647 
7649 
7650 
7651 
7652 
7655 
7654 
7655 
7656 
7657 
7658 
7659 



HARDCODEO P TABLES MAY BE PLACED HERE BY USING THE SETUP MACROS. 
THIS SECTION IS OPTIONAL AND SHOULD BE REMOVED ir IT IS NOT BEING 
USED. CHANGE THE POINTER MACRO ARGUMENT TO REPLECT THE REMOVAL. 

THE P-TABLES ARE DELIMITED BY THE "BGNSETUP" AND "ENOSETUP" MACROS. 
THE "BGNSETUP" MACRO HAS ONE ARGUMENT UHICH IS THE NUMBER OF 
; P-TABLE ENTRIES. EACH ENTRY IS DELIMITED BY THE 'BGNPTAB ANO 

J "ENOPTAB" MACROS. NEITHE-. OF THESE MACROS REQUIRE AN ARGUMENT, 

BGNSETUP 1 
BGNPTAB 
.WORD 0 
ENOPTAB 
ENOSETUP 



000001 



END OF THIS MODULE 
.END 



CVNIAAO OEQNA Ki EXERCISER OIAG MACRO H1200 
SYf«OL TABLE 



ACT ALP 




B 


000010 




ACTBLO 


104440 


BAO 


116066 




AC tens 


112506 


BCOUNT 


050266 


G 


ACTCNL 


114052 


BD 


000010 


G 


ACTCNT 


112612 


BINOEC 


100342 


G 


ACTCPY 


107170 


BINHEX 


076044 




ACTCSU 


114304 


BITO - 


000001 


G 


ACTCTT 


106746 


BITOO - 


000001 


G 


AC TOFT 


114560 


BITOl • 


000002 


G 


ACTOIR 


110236 


BIT02 - 


000004 


G 


AC TEXT 


106576 


BIT03 - 


OOOOlO 


G 


ACTMLP 


104072 


BIT04 • 


000020 


G 


ACTIOT 


105552 


BIT05 - 


000040 


G 


ACTMSG 


106470 


BIT06 - 


000100 


G 


ACTNAO 


107246 


BIT07 - 


000200 


G 


ACTNAL 


107404 


BIT08 - 


000400 


G 


ACTNOO 


104130 


BIT09 - 


001000 


G 


ACTNUF 


104062 


BITl ■ 


000002 


G 


ACTNUL 


104070 


BITIO - 


002000 


G 


AC TONE 


106706 


BITll • 


004000 


G 


ACTOPR 


106 756 


BIT12 - 


010000 


G 


ACTPAT 


112332 


BIT13 - 


020000 


G 


ACTRNA 


107612 


BIT14 - 


040000 


G 


ACTRNL 


110670 


BIT15 ■ 


100000 


G 


ACTRSP 


114710 


BIT2 • 


000004 


G 


ACTRUN 


107464 


BIT3 - 


000010 


G 


ACTSAV 


114136 


BIT4 . 


000020 


G 


ACTSMS 


112414 


BITS - 


000040 


G 


ACTSNO 


113676 


BIT6 - 


000100 


G 


ACTSR4 


106670 


BIT7 - 


000200 


G 


ACT sun 


105170 


BIT8 - 


000400 


G 


ACTSZE 


107112 


BIT9 • 


001000 


G 


ACTTYP 


107104 


BLOAST 


076724 


G 


AC TUNS 


114202 


BLDBUF 


077652 


G 


ACTUSF 


114426 


BLOf AS 


076376 


G 


ACTXAO 


106606 


BLOFLG 


002200 




ACTZRO 


106716 


BLOLO 


076132 


G 


ACTOAL 


106736 


BLDMSG 


052473 




ACTIAL 


106726 


BLOREQ 


077224 


G 


ADDMUL- 


000001 G 


BMPCNT 


074632 




AOR 


000020 G 


BMPEXI 


075356 




AORBUF 


002316 


BMPMUL 


075164 




AOROEL 


054044 


BMPRCV- 


000000 


G 


ALLNOO 


061315 


BMPREC 


075054 




ALPHA • 


000000 G 


BMPXMT- 


000001 


G 


ANCHOR 


070674 


BOE 


000400 


G 


ARGTYl 


061702 


BROADR 


004016 




ARGTY2 


061710 


BUFLEN 


050332 


G 


ARGTY5 


061721 


BUILO - 


000003 




ARGTY4 


061732 


CAOERR 


053022 




ARGTY5 


061743 


CAORER 


052746 




ARGTY6 


061747 


C ALPHA - 


000016 




ARGTY7 


061757 


CASIST■ 


000001 


G 


ASKCSR 


117146 


CBOAOR 


002370 




ASKPRI 


117235 


CCCITT. 


000023 




ASKVEC 


117201 


CCITT . 


000005 


G 


ASSEHB* 


000010 


CCLMSG* 


000035 





I<i5 
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CCLNAO- 


000004 G 


CHPER2 


067677 




CCLNAL- 


000010 G 


CMPSTR 


075702 




CCLSUM- 


000042 


CNDADR- 


000030 




CCNTR - 


000036 


CNDLOG- 


000037 




CCPTS - 


000027 


CNOOAL- 


000031 




COEfLT- 


000044 


CNOOE - 


000015 




COIR - 


000043 


CNTENO 


050242 




CEXAOR- 


00O\^13 


CNTRS 


050144 




CEXIT - 


000020 G 


CNTROO 


062047 




CFLAG 


003734 


CNTROl 


062127 




CrUNCT- 


000040 


CNTR02 


062176 




CHECK 


116520 


CNTR03 


062232 




CITSUM 


050244 


CNTR04 


062277 




CITTST 


050242 


CNTR05 


062354 




CITVEC- 


000004 G 


CNTR06 


062424 




CITUEN- 


024100 G 


CNTR07 


062463 




CITUOR- 


014100 G 


CNTR08 


062533 




CLIACT 


103726 


CNTR09 


062606 




CLIALN- 


000007 


CNTRIO 


062657 




CLIALP- 


000006 


CNTRll 


062716 




CLIBIF- 


000003 


CNTR12 


062766 




CLIBR ■ 


000002 


CNTR13 


063034 




CLIBRX 


052222 


CNTR14 


063101 




CLIDEC- 


000011 


CNTfll5 


063135 




CLIERH 


052113 


CNTR16 


063177 




CLIERR- 


000000 


CNTR17 


063245 




CLIEXI- 


000001 


CNTRie 


063320 




CLINBG 


052175 


CNTR19 


063365 




CLINUF 


052144 


COHPAR 


061515 




CLINUH- 


000005 


CONES - 


000017 




CLIOCT- 


000010 


COPRSL- 


000024 




CLISPA- 


000004 


COUNT 


050304 


G 


CLISTR- 


000012 


CPATRN- 


000005 




CLITRE 


050516 


CPYCNT 


050326 


G 


CLIIPM 


052104 


CPYLMT 


053511 




CLKBR 


003740 


CR 


000015 


G 


CLKCSR 


003736 


CRNALL> 


000032 




CLKEN 


003746 


CRUN - 


000004 




CLKHZ 


003744 


CSAVE - 


000006 




CLKINT 


070530 G 


CSAVR4 • 


000014 




CLKSET 


070504 


CSHCTR- 


000002 


G 


CLKVEC 


003742 


CSHHSG- 


000034 




CLRHSG 


053432 


CSIZE • 


000026 




CLUPPR- 


000033 


CSR 


000016 


G 


CMOBUF 


002202 


CSRBUF 


050246 




CMOTYl 


061610 


CSRO 


050004 


G 


CMDTY2 


061615 


CSRl 


050020 


G 


CM0TY3 


061625 


CTARGT- 


000000 


G 


CMDTY4 


061633 


CTYPE " 


000025 




CM0TY5 


061640 


CUNSAV 


000041 




CM0TY6 


061644 


CUNSVF- 


000045 




CM0TY7 


061654 


CZEROS- 


000020 




CM0TY8 


061661 


C»AU • 


000052 




CM0TY9 


061667 


CtAUTO- 


000061 




CMP AOR 


116700 


C$BRK - 


000022 




CMPBUF 


050334 G 


C»BSEG- 


000004 




CMPERl 


067602 


C»BSUB- 


000002 





SEQ 192 



CICEFG- 000045 
CICLCK- 000062 
OCLEA- 000012 
CICLOS- 000035 
C*CLP1- 000006 
CICVEC> 000056 
C»OCLN> 000044 
ClOOOU- 000051 
C»ORPT- 000024 
C$0U - 000053 
CiEOIT- 000003 
CIEROF- 000055 
CIERHR- 000056 
CIERRO- 000060 
C»ERSF- 000054 
-tERSO- 000057 
C»ESCA- 000010 
C*ESEG- 000005 
CIESUB- 000003 
CIETST- 000001 
CIEXIT- 000032 
CIGETB- 000026 
CIGETy- 000027 
OGHAN- 000043 
CIGPHR- 000042 
CIGPLO- 000030 
C*GPRI- 000040 
CIINIT- 000011 
CIINLP- 000020 
CiriANI- 000050 
C*nEH - 000031 
CfNSG - 000023 
CtOPEN- 000034 
OPNTB- 000014 
CIPNTF- 000017 
CIPNTS- 000016 
CIPNTX- 000015 
C$QI0 - 000377 
CfROBU- 000007 
C»REFG- 000047 
ORESE- 000033 
C«REVI- 000003 
C*RFLA- 000021 
C»RPT ■ 000025 
CSSEFG- 000046 
OSPRI- 000041 
OSVEC- 000037 
C»TPRI- 000013 
C.COLL- 000074 G 
C.CRC « 000001 G 
C.FRAM- 000002 G 
C.LCAR- 000002 G 
C.MLEN- 000004 G 
C.MREC- 000010 G 
C.Mxm- 000040 G 
C.OPEN- 000010 G 
C.PREC* 000004 G 
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C.PXMO- 


000054 


G 


EMSG37 


064451 




C.PXMT* 


000034 


G 


EnSG38 


064515 




C.PXM2. 


000050 


G 


EnSG4 


003532 


G 


C.PXM5- 


000044 


G 


EMSG40 


064561 




CROAT* 


000020 


G 


EnSG41 


064662 




CRERB* 


000014 


G 


EnSG42 


064764 




C . RERR ■ 


000016 


G 


EMSG43 


065062 




C.RLEX- 


000032 


G 


EMSG44 


065141 




C.RLIN- 


000030 


G 


EMSG45 


065237 




CRMOB" 


000024 


G 


EnSG46 


065303 




C.RTRY- 


000001 


G 


EMSG47 


065366 




C . RUNT ■ 


000010 


G 


EnSG48 


065446 




C.SECS" 


000002 


G 


EMSG5 


003632 


G 


C.SMRT» 


000004 


G 


EMSG50 


065544 




C.SI2 • 


000000 


G 


EMSG51 


065600 




C.XABB- 


000070 


G 


EMSG52 


065633 




C.XABT" 


000072 


G 


EMSG53 


065721 




C.XDAT- 


000060 


G 


EMSG54 


065773 




C.XMOB" 


000064 


G 


EMSG55 


066063 




COALT - 


000022 




EMSG56 


066116 




ClALT • 


000021 




EMSG57 


066152 




DATCMP 


077734 


G 


EMSG58 


066211 




DECSTR 


100526 


G 


EMSG59 


066267 




OEPAOR 


003774 


G 


EMSG60 


066344 




DESC • 


000002 


G 


EnSG61 


066412 




DESTIN" 


000000 


G 


EnSG62 


066451 




DTPTBL 


002170 


G 


EMSG63 


066526 




DIAGHC" 


OOOOOO 




EnSG64 


066615 




OIRCOn 


110266 




EnSG65 


066705 




DIRECT 


061337 




EnSG66 


066777 




DNIFLG 


050262 


G 


EMSG67 


067071 




EOPACK 


075474 




EMSG68 


067121 




EF.CON" 


000036 


G 


EnSG69 


067204 




EF .NEU« 


000035 


G 


ENTRNO 


116304 




EF .PUR" 


000034 


G 


EOFF 


116070 




EF.RES" 


000037 


G 


EOFFNO 


116205 




EF , STA» 


000040 


G 


ERR8LK 


052102 


G 


EL • 


001000 


G 


ERRFLG 


050270 


G 


EHSGO 


003526 


G 


ERRMSG 


052100 


G 


EMSGOl 


063436 




ERRNBR 


052076 


G 


EHSG02 


063467 




ERROR 


071002 


G 


EMSG05 


063527 




errtyp 


052074 


G 


EMSG04 


063563 




ERRl 


070306 


G 


EMSGOS 


063605 




ERR2 


070544 


G 


EMSGl 


003527 


G 


ERRS 


070432 


G 


EMSGIO 


063670 




EVL 


000004 


G 


EnSGll 


063735 




EXIT » 


000011 




EMSG14 


063774 




EXITl 


116666 




EMSG2 


003530 


G 


EIENO ■ 


002100 




CMC/" 


064050 




EiLOAO* 


000035 




EnSG24 


064103 




FAAORl- 


000022 


G 


EriSG25 


064157 




FAA0R2- 


000032 


G 


EnSG5 


003531 


G 


FAA0R3- 


000042 


G 


EriSG32 


064245 




FAA0R4- 


000052 


G 


EnSG34 


064322 




FAFCTl- 


000020 


G 


EriSG35 


064367 




FAFCT2- 


000030 


G 


EnSG36 


064424 




FAFCT3« 


000040 


G 



Lib 
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FAFCT4* 


000050 


G 
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SELMSG 116246 
SETAOD 072346 
SETEXI 072450 
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TIMERS 003762 
TIMERl 003756 
TIMER2 003760 
TIMMIN 003750 
TIMOUT 050272 G 
TIMSEC 003752 
TIMTCK 003754 
TRAST 061367 
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